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Geschrieben in Microsoft-BASIC+ ohne Änderungen für 32 = 16er Bild- 
schirme (Dragon 32, Tandy Color mit extented Color Basic.) »beianderen 
Computern mit Microsoftsystem und abweichender Bildschirmaufteilung 
müssen die PRINT @-Numerierungen geändert werden (IBM PC und Ju- 
nior) 


Alle wichtigen Möglichkeiten, in BASIC gute Bewegungen, Bilder, Geräu- 
sche oder Musik zu erzeugen, die hier im Programm »Könige und Burgen« 
in Microsoft vorgestellt werden, finden Sie später auch im Progamm 
»Trucking USA« für das Commodore 64-System. Vieles in dieser Vorbe- 
merkung gilt für die ganze Kramkiste; sie mag deshalb stellvertretend für 
alle Programme dieses Buches dienen. 

Die beiden größten Programme sind Simulationsprogramme — für 
Computer wohl die schönste Möglichkeit, ihr Können zu zeigen. Gleich- 
zeitig auch die interessanteste Art, mit dem Computer zu spielen. Aben- 
teuerprogrammen soll ihr Wert nicht abgesprochen werden, aber, einmal 
»geknackt«, verlieren sie schnell ihren Reiz. Action-, d.h. Schieß- und 
Geschicklichkeitsspiele sind eine ganz andere Sparte: nur in Maschinen- 
sprache gut zu programmieren und für den echten Computernutzer weni- 
ger interessant. Allein Simulationsprogramme als ureigenste Computer- 
spiele zeigen ständig neue Varianten und können so auch nach ihrer 
Erstellung selbst den Programmierer fesseln. 

Fangen wir das Buch gleich mit einem riesigen Programm an. Ich habe 
es auf dem Dragon 32 geschrieben, und es ist so umfangreich geworden, 
daß man vor dem Laden erst mit PMODE O: PCLEAR 1: Graphikseiten 
zusätzlich reservieren muß. (Das ist eine einfache Methode, um den Spei- 
cherplatz des Dragon um ca. 4 k zu erweitern. Allerdings kann man dann 
nur die Textseite benutzen und keinerlei Graphikbefehle wie DRAW, 
PAINT, CIRCLE etc. verwenden.) 

Warum »Könige und Burgen«? Wer nur ein wenig dem Verschlafen 
seines Lebens entgangen ist, wird es wissen — den anderen sei gelegenttli- 
che Beschäftigung mit »Dungeons and Dragons«, »Prinz Eisenherz« etc. 
empfohlen. 

Die meisten großen Abenteuer- und Simulationsprogramme haben bis 
zum Endstadium mehrere Entwicklungsstufen bei verschiedenen Pro- 
grammierern durchlaufen. So habe ich die grundsätzlichen Rechenrouti- 
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nen und Algorithmen dieses Programms einer US-Computerzeitschrift 
entnommen — und schon der dortige Begleittext spricht vom Aufgreifen 
und Verbessern. 

Einige grundsätzliche Nachteile des Programms (wie etwa durch den 
Zufallsgenerator erzeugte Verluste von 3500 Söldnern, obwohl nur noch 
1230 vorhanden waren, und anderes) konnten leicht verbessert werden, 
weil wir die Möglichkeit haben, unsere Programme in einer neuartigen 
Computerspielhalle im täglichen Einsatz durch zahlende und eben des- 
wegen monierende Kunden testen zu lassen. Dadurch ist auch garantiert, 
daß die Programme fehlerfrei sind. 

Wichtiger als die Rechenroutinen ist bei diesem Programm die Ausnut- 
zung der Möglichkeiten, mit den Textzeichen Bilder und Bewegung zu 
erzeugen. Alle Programmteile sind in BASIC geschrieben. Sicher mag 
Maschinensprache noch ganz andere Möglichkeiten bieten, das Pro- 
grammieren ist für den Anfänger jedoch erheblich komplizierter, außer- 
dem ohne intensives Studium kaum zu begreifen. Der »User« müßte sich 
also auf das sture Abtippen von Zahlen beschränken und hätte sicher 
erhebliche Mühe, die in Maschinensprache geschriebenen Zeichen- und 
Bewegungsroutinen in sein Programm einzubinden. 

Ich habe das Programm mit dem Telewriter-Texteditor von Cognitec 
(als billige Cassettenversion eines ausgereiften Textverarbeitungssystems 
sehr zu empfehlen) so formatiert, daß jeder Befehlsgang sofort und leicht 
verständlich sichtbar wird. Die Erläuterungen der Computeraktivitäten 
stehen jeweils neben den Zeilen, und soviel Photos als nötig illustrieren 
das Gesagte. 

Lesen Sie sich bitte die folgenden Erläuterungen durch: Es wird kaum 
eine Möglichkeit fehlen, die sie für eigene Programmerstellung auf der 
Textseite brauchen. Besonders interessant z.B. ist sicher die variable, 
aber absolut sichere Eingaberoutine mit eigenem Cursor, die in dieser 
Form — d.h. nicht geringster Fehlermöglichkeit und nicht zerstörbarem 
Bildaufbau (im Gegensatz zu INPUT — genauso wichtig für Geschäftspro- 
gramme wie für Spiele ist (Zeilennummer 1000) oder die Möglichkeit, beim 
Warten auf eine Eingabe mit SCREEN 0,1 ein Blinken zu erzeugen (1010) 
(so erscheint auf der Einleitungsseite während des Wartens einblinkendes 
Schwert); oder der »soft« nach oben scrollende Bildaufbau — mit wenigen 
BASICzeilen erreicht (535); weiter z.B. Blitzen (990, 995), Zeichnen mit 
»Random«-Zufallsgenerator (965), Melodien und Geräusche mit SOUND 
und PLAY (Wind 793, Totenglocke 792, Peer Gynt Suite von Grieg 801), 
automatisches Zentrieren von Text bzw. Namen variabler Länge mit 
Schmuckeinrahmung (40), gesperrte Eingabetasten, die dennoch Töne 
verschiedener Höhe von sich geben (2000) etc. etc. 

Da ich die grundsätzlichen Rechenoperationen übernommen habe, ist 
noch etwas »Struktur« in dem Programm zu erkennen. Ansonsten ist 
schnell zu merken, daß ich eher genial-kreativ als ordentlich-strukturiert 
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programmiere. Die ordentlichen Progammierer nennen es schlampig, ich 
jedoch kann bei einem Programm dieser Länge kein RENUMBER 
machen, um etwas Ordnung zu bekommen. Es würde bedeuten, daß ich 
Zeilen nicht mehr finde, noch deren Bedeutung im Kopf habe. Wenn man 
sich an einem neuen Tag wieder hinsetzt, um weiter zu programmieren, 
braucht man bei dieser Programmlänge schon so etwa eine Stunde, um 
die wichtigsten Zeilennummern wieder in Kopf und Finger zu bekommen. 
Gegen Ende habe ich regelmäßig 6 bis 14 Stunden an einem Stück — 
vorzugsweise nachts — an diesem Programm gesessen. 

Also ein Vorschlag für eigene Programme: Suchen Sie sich ein schönes 
»Nur Text«-Abenteuer — oder besser eines wie dieses Simulationspro- 
gramm. Versuchen Sie dann Ihr Glück mit Hilfe meiner kleinen Tricks im 
graphischen Gestalten und Illustrieren. Ich gebe dem intuitiv-kreativen 
Programmieren den Vorrang — eine zu starke Sucht, alles ordentlich zu 
machen, kann hemmend wirken. Schließlich ist für die optische und aku- 
stische Gestaltung des Programms nicht so entscheidend, wie ordentlich 
das Listing die Zeilennummern ausweist — wichtig ist, ob es Vergnügen 
bereitet, mit dem Programm zu spielen (»Könige und Burgen« verdienen 
heute noch ihr Geld in der erwähnten Spielhalle). (CS) 


In den Dragon-Listings wird der Klammeraffe durch das Paragraphenzei- 
chen ersetzt. 


++ * 





GD0SUBIS32:G0OSUB9O1: 
PRINTSSS, "ACTIVE ADVENTURE 


1 60SUB1470: 60SUB1460: GOSUB1464: GOSUB9I4O: 


C VRIL 1983";: 


PRINTS5485, "EINLEITUNG: j?n"3z :SOUND245,1 
"AUTOR: CHRISTOPH SILEX:C VRIL 9/1983 


PRINTS239, STRING$(3,175)3: 

FORX=208 TO 368 STEP 32: 
PRINTSX,CHR$(175)3: 

NEXT: 

FORX=1T0300: NEXT: 

A$S=INKEYS; 

IFA$=" " THENGOSUB9ISS: 

FORX=1T0200: NEXT: 


SERIE ZU Z SZ ES EEE SS ET ETF IT 
ROFIYE RUVERTUNRE a 


Ki 
u 
% 
4 
& 
y 
br 
E3 
# 
A 
b 
N 
b 
% 


ie 
ELLE 
iz 


HE DE N a a 


BenL Er TunGH Br 


EEERBELZTZERSESTEEHET TER TENGENT 











1 Alle Seiten oder Bilder sind aus ver- 
schiedenen Unterprogrammen aufge- 
baut. Was genau passiert, zeigen die ein- 
zelnen Zeilennummern. Bitte verfolgen Sie 
die GOSUB- und GOTO-Verweise. Zeilen- 
nummem vor diesen Anmerkungen be- 
deuten immer »ff« bis zur nächsten 
Nummer. 

Zeile 1 erzeugt 2 Seiten: Farb- und Ton- 
einstellung und das Titelbild mit der Frage 
nach der Einleitung. Das Bild der Einlei- 
tung baut sich aus verschiedenen Teilen 
nach und nach auf: Überschrift, Burg, Um- 
randung, Abfrage, Ton. 


2 Ein Schwert wird gezeichnet. Warte- 
schleife, Eingabeabfrage, bei keiner Ein- 
gabe wird das Schwert in Zeile 933 ge- 
löscht (die Befehle paßten nicht mehr in 2), 
Warteschleife, wieder zum Anfang von 2. 
Bei Eingabe nach 1500 zur Einleitung oder 
weiter im Programm zu 3. 


3 Reservierung der Graphikseiten für den 
Text und Reservierung des Variablenplat- 
zes. Wenn das Programm durchgelaufen 
ist, zeigt der Befehl zum Ausdruck des 
noch vorhandenen Speicherplatzes 
PRINT MEM nur noch ca ik. 


G0OSUB1400: GOSUB1440 4 Als Anreiz und Anspielung auf die 
späteren Schlachten werden 2 Mörser- 
schüsse abgegeben. 

CLS7: 5 Anfang der Herstellung des Zufallsge- 

PRINTS96," ICH BERECHNE DIE GEWINNCHANCE AUF D 


nerators. Der computereigene Zufall ist bei 
vielen Geräten nur ein »Pseudo-Zufall«. 
Häufig erscheinen immer wieder diesel- 
ben Zahlen. 


EN SCHLACHTFELDERN NACH DER ”’MONTE-CARLD METHOD 
Er MET EINEM ZUFALLSGENERATOR. LINKS UNTEN 
ERSCHEINT DIE GEWAEHLTE ZAHL —- RECHTS DIE BERECH 
NUNG. ERTRAGE ES MIT GEDULD. ai 


& DIM SP$(10): 
SP$(1)=" SO LERNT MAN FLUCHEN...": 
SP$(2)=" WAS AUCH GESCHIEHT: TUE SO ALS OB ES 
ABSICHT WAR..." : 
SP$(3)=" FEHLSCHUSS": 
SP$(4)=" WEIT DANEBEN" 


6 DIM-Anweisung für die blöden Sprüche 
des Computers, wenn daneben geschos- 
sen wird. 
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10 Statt ewig wieder die langen CHR$ für 
verschiedene Zeichen zu schreiben, habe 
ich sie hier einigen kurzen Strings gleich- 
gesetzt; Sie finden sie später z.B. beim 
Zeichnen des Mörsers. 


15 Der Timer, der seit Einschalten des 
Gerätes läuft, wird als wechselnde Grund- 
zahl für den Zufall benutzt. 


24 SCREEN 0,1 erzeugt orangenen 
Schrifthintergrund, das nächste PRINT 
Grün; so entsteht hier das Blinken. 


26 Das Programm wartet auf das Drük- 
ken irgendeiner Taste, um fortzufahren. 


35 Frage nach Spielernamen und Einrich- 
ten der Strings. 


36 Rest der Seite blau drucken; die letzte 
Zeile mit nur 31 Leerstellen, da die Stelle 
rechts unten nicht mit PRINT gefüllt wer- 
den kann - aber mit POKE 1535, 175 geht 
es (1535 Stelle des Bildschirms, 175 blaue 
Leerstelle). 


40 Ton, Frage nach Nordkönig, Druck 
der Leerstelle für die Eingabe, Cursor zu- 
rück zum Anfang der Eingabe; Name darf 
nur 8 Buchstaben haben. Übergabe D=8 
an die Eingaberoutine 1000, String des 
Nordkönigs gefüllt mit Eingabe, Löschen 
der Eingabe, Errechnen der Stringlänge, 
Ausdruck mit Ornamentrahmen. 





7 SPS(5)=" 7+,:4.%%7!:5 WAS WAR DAS?": 
SP$(6)=" DAS WAR NICHTS": 


SP$(7)=" WAS SCHIEF GEH’N KANN, GEHT SCHIEF...": 


SP$(8)=" ZU WEIT" 


8 SP$(9)=" ZU KURZ": 
SP$(10)=" ZU WEIT" 


10 PL$=CHR$ (174) : PU$S=CHR$ (172) :PR$S=CHR$ (175) : 
S1$=CHR$ (128) =» B$=CHR$ (175) :B1$=STRING$ (32, B$): 
6$=CHR$ (159) :61$=STRING$ (532, 6$) :=LL$=CHR$ (258) : 
LU$=SCHR$ (256) = LR$S=CHR$ (257) » PDS=SCHR$ (165) : 
PS$=CHR$ (170) 


11 Di$=CHR$ (13) + D2$=CHR$ (45) : D3$=CHR$ (8) : 
A7$=CHR$ (32) = T$=CHR$ (150) : T1$=CHR$ (153) : 
L$=CHR$ (239) = KU$=CHRS$ (227) :KD$=CHR$ (236) : 
KL$=CHR$ (229) :KK$=CHR$ (228) 

15 XS=TIMER 

20 IFXS>1000 THENXS=XS/10: 60T020 

21 GOSUB9O1: GOSUBS10: PRINTS449,X5; 

24 FORZ=1T0XS: 

Y=RND(RND(XS))z PRINTS467,Y;5: PRINTS473,2;: 
SCREENO, 1: 
NEXT 
25 PRINTS33,CHR$ (239); 


26 GOSUBSSS 


| FEUCHTEN Und 
NE sen LANDSCHAFT a; 
Near GENANHT HIEB. 


„IH METTELALT 


SUSFHRDERUMG 


35 PRINTSO,STRING$ (68, B$) ;6$; "koenige";6$; "und" ;6$%; 


"burgen";6$; STRING$ (6, B$);: 
G0OSUBSI16: PRINTBIi$;=: GOSUBBI16: 


PRINT" WIR SIND IN DER FEUCHTEN UND NEBLIGEN 
LANDSCHAFT, DIE HEUTE SCHOTTLAND GENANNT WIRD.... 


IRGENDWANN IM MITTELALTER..." 


56 SCREENO,1: 
FORX=1 T09: 
PRINTB1$%; : GOSUBS1&: 
NEXT: 
PRINTSTRING$ (31,175); :POKE1535, 175: GOSUBS15 


40 SOUND180, 1:PRINTS225&, "WER WIRD DES NORDENS KOENIG?"3;: 


PRINTSS300," "2:PRINTSS00, 33 
D=8: GOSUB1000: N$=DI$: 
PRINTS298,STRING$ (22,175)3;: 

N= (32-LEN (N$) ) /2: 
PRINTS287+N, CHR$ (1553) 3N$5 CHR$ (150); 


11 





42 


u 


87 


GOSUBS10: SDUND220, 1: 
PRINTS3S54, "UND DER HERR DES SUEDREICHS?";: 
PRINTS3S88, "ICH ALS GEGNER : <ENTER>"z: 
PRINTS428, " "z:PRINTS428, 35: 

D=8: 60SUB1000: S$=DI$: 

IFS$="" THEN S$="DRAGON" 

PRINTSS84, STRING$ (32, 175) 5 :PRINTS426, STRING$ (22,175) 3: 
N=(32-LEN (S$) ) /2: 
PRINTS415+N, CHR$ (153) 53S$; CHRS (150); 
IFS$="DRAGON" THENGOSUB765: GOSUB765: 

PRINTS448, "EINE WILLKOMMENE HERAUSFORDERUNG"; : 
G0SUB765: GOSUB765: GOSUBB15 

IF INKEY$ >" "THENSOELSE4& 

ER=0: WR=O 

GOSUBS45: M5=0: M=RND (30000) z M=M+150000: NM=M:= SM=M 
R=0:R1=0 

X=RND ( 10000) : NW=X+20000: X=RND (10000) = SW=X+20000: 
N=RND ( 10000) : N=N+20000: S=RND (10000) ı S=$8+20000: 
CN=500: CS=500 

NC=RND ( 10000) = SC=RND (10000) = I=RND (5) : I1=RND (5) 
X=RND (100): IFX<25 THEN NS=1ELSENS=O 

X=RND (100): IFX<25 THENSS=1ELSESS=0 


605UB725 


KIERGEN 





IFT=0 THENCLSS 


IFT=1 THENCLS7 


90 09=0 


5 


IFNM<=0 THENNM=OELSENM=NM 


100 IFSM<=0 THENSM=OELSESM=SM 


105 IFNWK=O THENNW=OELSENW=NW: 


IFSW<=O0 THENSW=OELSESW=SW: IFNC<=0 THENNC=O 
ELSENC=NC 


110 IFSC<=0 THENSC=OELSESC=SC 


115 PRINTSO, WR; =PRINTSO, T1$; :PRINTS2, T$; 
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PRINTS29, ER; :PRINTS29, T1$5:PRINTSZ1, 185: 
Ni=(16-LENN$) ) /2: 

PRINTSS2+N1, T1$;N$5; T$;5:: 
Ni=(16-LEN (S$) ) /2: 

PRINTS47+N1, T1$;5S$; T$; 


46 Kürzeste Form der Inkey-Tastenab- 
frage; das Programm läuft erst nach Ta- 
stendruck weiter. 


50 Einrichten des Spielmaterials — Geld, 
Söldner, Mörser etc. 


85 Abfrage, ob ein König eventuell schon 
verloren hat, dann Weitergang zum End- 
bild. 


86 Hintergrund der Hauptseite je nach 
König: Nord = blau (CLS 3) und Süd=rosa 
(CLS 7). 


115 Druck des Spielmaterials, Zahlen mit 
PRINTUSING formatiert. 


160 Zeigt unter den Namen, wer am Zug 


165 Liste der Spielmöglichkeiten 


170 Eingabeabfrage; falsche Tasten ge- 
n unterschiedliche Töne, richtige Taste 
at mit 2100 nach Zufallsmöglichkeit für 
Zanitag, Geschenksendungen des Vaters 
oder Pest und Überschwemmung. 


65 
D 


.r- 


» DW 


J 


125 


125 


150 


155 


140 


145 


150 


185 


170 


ı71 


PRINTS97,"DUKATEN: "3 :PRINTUSING "#444" 3 NMy ı 
PRINTS113, "DUKATEN: "5: PRINTUSING" #444" SM; 


FRINTSE129, "SDELDNER= "5: IFNW<=0 THENA465 
ELSEPRINT;Z :PRINTUSING" #444": NWy a 
PRINTS145, "SDELDNER: "z;: IFSW<=0 THEN470 
ELSEFRINT; »PRINTUSING"##34#" 5 SWr 3 
PRINTS181,"TREFF.P.s"s: IFN{=0 THENSSO 
ELSEPRINT; :PRINTUSING"#####" N; 


PRINTS177,"TREFF.P.:"3: IFS<=0 THENSSS 
ELSEPRINT; : PRINTUSING" #44" 3 53 


IFENS=0O THENCEN=O 
IFCS<S=D THENCS=OELSE14O 


PRINTS193, "MOERSER ="; PRINTUSING" #44" s Cs : 
PRINTS209, "MOERSER = "3 :PRINTUSING" 34H" 4 CS: 3 
PRINTS225, "BAUERN ="3:IFNC<=0 THENNC=O: PRINT}: 
PRINTUSING"###3#"; NC4 sGDTO145 

ELSEPRINT; :PRINTUSING" #344" HNO; 


PRINTS241,"BAUERN : "3: PRINTUSING" #HRHHH" 4 SC5 


PRINTS257,"SPIONE ="3:PRINTUSING" #44" s Is: 
PRINTS273,"SPIONE :"3:PRINTUSING"HHHHH" 4 Ilz: 
PRINTS289, "KATAPULT: "3 :PRINTUSING" #44" I NSS 


55=55+5Y:5Y=0: PRINTSISOS, "KATAPULT= "32 
PRINTUSING" #444" ; 55; 


IFT=0 THENT=1: 

PRINTSS23,T1$; "DEIN ZUG"; T$;: 

G0T0185 

ELSEIFT=1 THENT=O: 

PRINTSSS9, T1$; "DEIN ZUG", T$; : 

IFS$="DRAGON" THENPRINTSS658, "NICHT DRAENBELN" 3: 
GOTO2S5SELSE28S 


PRINTSSSS, "mDERSER kATAPULT  AaTtTENTAT"s: 
PRINTS417, "VORRUECKEN eRWERB MOERSER"S: 
PRINTS449, "bAUERN HEUERN SOELD.ENTLASSEN"z: 
SOUND180,1 


AS=INKEY$S: 

IFA$="" THEN170 

ELSEGOSUB2O00: 

IFA$="M" THENSOSUB2100:60T0175 
ELSEIFA$="V" THENGOSUB2100:60T0215 
ELSEIFA$="K" THENGSOSUB2100:GOT0225 
ELSE171 


IFA$="B" THENGOSUB2100:60T0245 
ELSEIFA$="E" THENGOSUB2100:60T0255 
ELSEIFA$="A" THENGOSUB2100:60T0550 
ELSEIFA$="S" THENGOSUB2100:G0T0190 
ELSE170 
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175 


1890 


185 


1970 


191 


195 


14 


LIES ZIR: 
HHLRGEN ODE? 
FEIHDED?T 


RR 
ER. 


BURER 





CLSS: 
PRINTSSS3S, "MOERSER ABFEUERN: ";: 
G0OSUB9IOO: GOSUBF10: GOSUBY2O 


IFCN<=0 THEN 

PRINTSI9,"KEIN MOERSER MEHR DA, SIR"z:CN=0: 
60T0540 

ELSEPRINTS103, "WELCHES ZIEL, SIR: "z: 
PRINTS135,"DIE bURGANLAGEN ODER"3;: 
PRINTS167,"DAS hEER DES FEINDES?"; 


PRINTS246,;: 

A$S=INKEY$: 

IFA$="B" THEN 

PRINT“ BURG "“;:6GOSUB1480: GOSUB1400: 6OTO195 
ELSEIFA$="H" THEN 

PRINT" HEER "3 :GOSUB1480: 6OSUB1400: 60T0210 
ELSE185 


CLS6: 

G0SUB9F00: 

PRINTSSS, "SOELDNER ENTLASSEN: "3: 
PRINTS105, "WIEVIELE SOLL MAN ";: 
PRINTS1JS8, "GEHEN LASSEN: ”.; 
PRINTS152,3;3: 

D=5: GOSUB1000: A=VAL (DI$) : 

IFA>NW THEN190 

ELSENW=NW-A: GOSUB775: 
PRINTS289, "SIE"; sPRINTSSSO, "SIND"; : 
PRINTSS70, "AUF"; 


PRINTSS9S, "DEM"; :PRINTS431, "WEG"; : 
PRINTS469, "NACH" 5 :PRINTSSOS, "HAUSE! "3: 
PRINTS480, ; :60T0540 


GOSUB9I9O: PRINTS192, 5: 

V=RND (3): IFV=1 THENSOSUB1300: GOTOS40 
ELSED=RND (5000) : GOSUB1260: 

PRINT" WHOW ! "; 

PRINT" "Ss" HAT VERLOREN: ": 

PRINT" TREFFER-PUNKTE: "3 :PRINTUSING" #444"; D: 
D=RND (100) : SOSUB1200 


PRINT" MOERSER 

D=RND (99) : G0SUB1210: 
PRINT" BAUERN 

IFSS<1 THENS40 
ELSED=RND (10): 
IFD<4THENGOSUBS1 0: 
PRINT" x#% UND EIN KATAPULT #3%*":SCREENO, 1: 
55=55-1: 

IFSS<1 THEN SS=0:GOTOS40ELSESOTOS40 


»"3:PRINTUSING"####";D: 


="; :PRINTUSING"####";D: 


175 Anfang der Spielmöglichkeiten des 
Nordreiches. Mörser abfeuern: Ich habe 
versucht, die Farben von Nord und Süd 
unterschiedlich zu halten, so daß unbe- 
wußt nach kurzem Spiel jeder weiß, wer 
dran ist — ebenso wird auf die Burg und 
das Heer in verschiedenen Richtungen 
geschossen. Burg und Heer haben auch 
je nach Seite verschiedene Fahnen. Bild- 
aufbau mit Mörser, Fahne und Umran- 
dung. 


185 1480 zeigt eine Möglichkeit, wäh- 
rend einer Eingabe-Abfrage drei verschie- 
dene Teile blinken zu lassen: 0, 1, STOP. 
Man beachte die unterschiedliche Blink- 
dauer. 


190 Söldner werden entlassen: Verweis 
an die Eingaberoutine 1000; nicht mehr 
als 5 Stellen, (D=5). Mit dem Lied »Happy 
days are here again« (775) ziehen sie nach 
Hause. 


195 Auswertung des Nordschusses auf 
die Südburg: 1300 zeigt einen der blöden 
Sprüche beim Vorbeischießen, ansonsten 
wird die Trefferquote per Zufall errechnet. 





—— [era sr 
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206 540 wartet auf irgendeine Tastenein- 
gabe und läßt dann das Bild nach oben 
weg-»scrollen«. 


DIE LONPARIEN 


215 Die Companien sind in die Schlacht 
vorgerückt: Pulverdampf (820, 825), in 
Moll tönende Musik (801 Peer Gynt). 


220 Falls der Zufall die eigenen Verluste 
größer ansetzt, erscheint in leuchtendem 
Orange (SCREEN 0, 1), daß es eine »Mise- 
rable Strategie« war. 


225 Das Katapult wird abgeschossen. 





205 GOT0S540 


210 GDSUBIFO: PRINTS192,5: 


211 


V=RND (5): 

IFV=1 THENGOSUB 13500: 60T0540 
ELSED=RND (5000) : SGOSUB1240: 

PRINT" "S$" HAT=:":PRINTD"MANN VERLOREN '" 


IFD>3000 THEND=RND (3000) : GOSUB1250: 

PRINT" ABER DEINE COMPANIEN STANDEN": 

PRINT" SCHON ZU DICHT VOR "Ss"’5S": 

PRINT" TRUPPEN. DU HAST BEI DIESEM": 

PRINT" SCHUSS"D"MAENNER VERLOREN! ":SCREENO, i 


212 GOT0540 







SOTTE HAT 
UBos DEINEN 
ISCHLACH 





215 


225 






DH) HAST ne 
SHELDHER IN BEREIT 
NERLURKER, u 


A362 NUR 


; 








CLSS3: 


PRINTSS2," DIE COMPANIEN SIND VORGERUECKT: "3: 
G0SUB930: GOSUBS20: GOSUBS25: GOSUBSOL1 


D1=RND (4500) : GOSUB1245: 
PRINTSS2," "S$" HAT"DI1"UND ";: 
D=RND (4500) =: SGOSUB1250: 
PRINT"DU HAST": 

PRINTD"DEINER SOELDNER IN DER": 
PRINT" SCHLACHT VERLOREN. ": 


IFD1i<D THEN GOSUBS15: 
PRINTSSS2," MISERABLE STRATEGIE!"3:SCREENO, 1: 
GOTOS40ELSEG60OTOS40 





CLS3: 

GOSUB9O0: GOSUB914: 

PRINTS33, "KATAPULT ABSCHIESSEN: "3: 
IFNS<1 THEN PRINTS99, "DU HAST KEINS!"35: 
G0T0540 

ELSEPRINTS103,"WELCHES ZIEL, SIR: ";: 
PRINTS135,"DIE bURGANLAGEN ODER";: 
PRINTS167,"DAS hEER DES FEINDES?"3;: 
PRINTS246,; 
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230 


2535 


256 


240 


245 


280 


261 


285 
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A$S=INKEYS$: 
IFA$="B" THENPRINT" BURG ";: 
GOSUB1480: GOSUB1400: GOTO23S5 


ELSEIFA$S="H" THENPRINT" HEER ";: 


G0S5UB1480: GOSUB1400: 60OTO240 
ELSE2SO 


60SUB990: 
X=RND (10) :PRINTS192,;: 


IFX=5 THENPRINT" MIESE QUALITAET, 
PRINT" ES IST NACH HINTEN LOSGEGANGEN" 3; : 


D=RND (1000) = GOSUB1270: 
PRINT" WIR HABEN DABEI"D: 


PRINT" TREFFERPUNKTE VERLOREN" :60T0540 


X=RND (2): 
IFX=2 THENGOSUB1300: GOTOS40 
ELSED=RND (11000) : G0OSUB1250: 


PRINT" DAS KOSTET "S$"’S BURG": 
PRINTD"TREFFERPUNKTE" : GOTOS40 


G0SUBF90: PRINTS192, 5: 

X=RND (3): 

IFX<S3 THENGOSUB1300: 60T0540 
ELSED=RND (11000) : GOSUB1240: 
PRINT" "S$" MUSS"D: 


PRINT" SEINER BESTEN SOELDNER BEGRABEN": 


S50T0540 


CLS2: 
GOSUBYF30: GOSUBIOO: 


PRINTSSS, "BAUERN ANHEUERN: "5; : 
IFNC=O0 THENPRINTS99, "NIEMAND ZUR REKRUTIERUNG"; : 
PRINTS131,"UEBRIG GEBLIEBEN"; : 


60T0540 


PRINTS97,"WIEVIELE WILLST DU"; : 


PRINTS129, "REKRUTIEREN 
PRINTS143,; 


D=4 : GOSUB1000: A=VAL (DI$): 
IFA>NC THEN 


PRINTS97,"ES SIND NUR NDOCH"NC"UEBRIG!'"35: 
PRINTS129,"HA! HA! SCHON WIEDER EIN ZUG ";: 


PRINTS161, "UMSONST!"3: 
G60T0540 


ELSENC=NC-A: NW=NW+A: GOSUB785: 


GOSUBF20: 

PRINTS378, "SIE"3: 
PRINTS401,"ZIE"3: 
PRINTS405, "HEN"; : 
PRINTS426, "AN DIE"3: 
PRINTS452, "FRONT"; : 
G0T0540 


CLS2: 

GOSUBYIFSO: GOSUBYOO: 

PRINTSSS, "MOERSER KAUFEN: ">; : 
GOSUBYJ40 








235 Es kann nach hinten losgehen und 
die eigene Burg beschädigen. Es trifft 
schlechter als die Mörser, wirkt aber zer- 
störerischer. 


265 Ein typischer Bildaufbau: 930 Süd- 
fahne rechts, 900 Umrandung der Bilder 
des Nordreiches, 940 Burg links, 941 Fen- 
ster der Burg links mit Zufallsgenerator 
und SET (statt PRINT) gezeichnet. SET auf 
schwarz bleibt schmal, es wird erst an- 
grenzend an andere Farben so breit wie 
eine PRINT-Stelle. 


285 Spielmöglichkeiten des Südreiches; 
Beginn der Südroutine 


290 Die Südroutine ist bis auf die Frage, 
ob der Computer Gegenspieler ist, der 
Nordroutine völlig gleich. Der Computer 
als Spieler schießt immer auf die größere 
Zahl: Trefferpunkte oder Söldner. Erst 
wenn die Zahl unter 10000 sinkt, verübt er 
mit Hilfe der Spione ein Attentat. 


270 


280 


281 


2985 


290 


291 


295 


296 


GOSUB780: 

X=RND (99) : 

PRINTSSS, "UNTEN ERSCHALLT EIN LAUTES ";: 
PRINTSSS,"HORN. EINER DER HAENDLER FRAGT"3: 
PRINTSI7,"WIEVIELE MOERSER ZUM PREIS VON"3: 
PRINTS129,X"DUKATEN DU MOECHTEST: ”; 


PRINTS155,3;? 

D=4 : GOSUB1000: 

PRINTS97,STRING$ (30,6%) ;: 
PRINTS129,STRING$ (50,6%); : 

A=VAL(DI$): 

Ail=A:Al=AltX: 

IFA1>NM THEN 

PRINTSSS, "DIESE MENGE DUKATEN HABT IHR "; 
PRINTS65, "NICHT MEHR IN DER KRIEGSKASSE!";: 
GOTOS40 


PRINTSSS, "DER WAFFENSCHMIED BELAEDT ".. 
PRINTSs5, "SCHON IHRE WAGEN, SIR! ".. 
NM=NM-Ai:CN=CN+A: 

GOTOS40 

PRINTSS85, "mOERSER kATAPULT aTTENTAT"3: 


PRINTS417, "vORRUECKEN eRWERB MOERSER";: 
PRINTS449, "DAUERN HEUERN SOELD.ENTLASSEN";: 
SOUND220,1 


IFS$="DRAGON" THEN 
605UB817:SOUND180, 1: GOSUBS05: GOTOS00 
ELSE 


A$=INKEY$: 

IFA$S="" THEN29O 

ELSEGOSUB2000: 

IFA$="M" THENGOSUB2110:60T0320 
ELSE 

IFA$="V" THENGOSUB2110:60T0365 
ELSE 

IFA$="K" THENGOSUB2110:60T0575 
ELSE291 

IFA$="B" THENGOSUB2110:60T0395 
ELSE 

IFA$="E" THENGOSUB2110:60T0415 
ELSE 

IFA$="A" THENGOSUB2110:60T0580 
ELSE 

IFA$="5" THENGOSUB2110:60T0295 
ELSE29O 

IFS$="DRAGON" THEN2FO 

ELSE 


CLSSs 

GOSUB9FOS: PRINTSSS, "SOELDNER ENTLASSEN: ";: 
PRINTS105, "WIEVIELE SOLL MAN ";: 
PRINTS138, "GEHEN LASSEN: ".:. 
PRINTS152,35;: 

D=5:60SUB1000: A=VAL (DI$) : 

IFA>SW THEN295 

ELSESW=SW—-A: GOSUB775 


PRINTS289, "FROEHLICH"3z: 
PRINTS330, "ZIEHEN"; : 
PRINTS370, "SIE"3: 
PRINTS39S, "VON" 3: 
PRINTS431, "DANNEN! "3: 
G0T0540 
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300 IFNS>=1 AND SW<11000AND SC>=1 THENS1O 





ELSE 
IFSW<SO0O0OAND SC>1 THENZ1O 
ELSE 
IFCS<1AND SM>4999 THEN315 
ELSE 
IF NS>=1AND SW< 1 1000ANDSM>9999ANDI1>=1 THENSSO 
ELSE 
IFSW<B000AND SM>9FF99ANDI 1 >=1THENSSO 
ELSE 
IFNS>=1AND S<11000AND SM>9999AND Ii>=1 THENSSO 
ELSE305 

305 IFS<8000AND SM>9999ANDI1>=1 THENSSO 
ELSE 
IFNW<SO0OAND SW>6000 THEN365 
ELSE 
IFSS>=1 THEN375 
ELSE 
IFCS>=1THEN320 
ELSES65 

BHUER! 

310 IFSW<11000 THEND=11000: A=D-SW: 310 Der Computer heuert Bauern an, 
IFSC>A THEN wenn sein Söldnerheer zu klein wird. 
CLSS: 

GOSUB9I3S: GOSUB9IOS: 


PRINTSSS, "ICH HEURE"A"BAUERN AN"3: 
SW=11000: SC=SC-A: G60SUB785: GOTOS40 
ELSE 

IFSW<8000 AND SC>S50 THEN 

CLSS: 

G60SUB935: GOSUB9IOS: 

PRINTSSS, "ICH HEURE"SC"BAUERN AN”"3: 
G605UB785: SW=SW+SC: SC= 

G60T0540 


315 IFCS<1AND SM>5000 THEN 315 Hier kauft der Computer neue 
D=RND (50) »A1=D%2100: CS=CS+100: SM=SM-Ai: Mörser. 
CLSS: 
G60SUB9I3S: GOSUBIOS: GOSUBIAO: 
PRINTSSS, "ICH KAUFE 100 MOERSER ZUM ">; 
PRINTS65, "PREIS VON JE"D"DUKATEN “2; 
60SUB780: GOTOS40 


319 C5=10 


320 CLS7: 
GOSUBIOS: GOSUB9I1 2: GOSUBI75: 
PRINTSSS, "MOERSER ABFEUERN: "; 


325 IFCS<=0 THEN 
PRINTS97,"ES IST KEINER MEHR UEBRIG, SIR"3: 
60T0540 
ELSE 
PRINTS103,"WELCHES ZIEL, SIR: "3: 
PRINTS135,"DIE bURGANLAGEN ODER";: 
PRINTS167,"DAS hEER DES FEINDES?"3: 
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335 Der Computer entscheidet, ob er mit 
dem Mörser auf das gegnerische Heer 
oder die feindliche Burg schießt. 


53350 


335 


>40 


550 


355 


356 


357 


370 


PRINTS245, 35: 
IFS$="DRAGON" THENS33S5 
ELSE 

A$S=INKEYS: 

IFA$="" THENSSO 

ELSE 

IFA$="B" THENS40 

ELSE 

IF A$="H" THEN3S5S 
ELSESSO 


IFN<NW THENS40 
ELSESSS 


PRINT" BURG ";: 

A$="B" : 6G0OSUB148B0: GOSUB1440: GDOSUBY9S: 
PRINTS192,;: 

=RND (3): 

IFV=1 THENGOSUB1300:G60T0540 
ELSE 

D=RND (5000) : GOSUB1270: 
PRINT" WHOW !": 

PRINT" "N$" HAT VERLOREN: ": 
PRINTH$; :PRINTUSING"####";D: 
D=RND (100) : GOSUB1220 


PRINTC$; »PRINTUSING" ####";D: 
=RND (99) » GOSUB12350: 

PRINTE$;3 :PRINTUSING" ####";D: 
IFNS<1 THENGOTOS40: 

ELSED=RND (10): 

IFD<4 THEN 

GOSUBS10:PRINT"*#*& UND SEIN KATAPULT! k##": 
SCREENO, 1: 

NS=NS-1: 

IFNS<1 THENNS=0: 

ELSENS=NS: SOTOS40ELSES40 


G0OT0540 


FRINT" HEER "3:A$="H": 
GOSUB14890: GOSUB1440: GOSUB9Y9S: 
PRINTS192,;3: 
=RND (3) : 
IFV=1 THENGOSUB1JS300:60T0540 
ELSE 
=RND (5000) : GDOSUB1250: 
PRINT" "N#$" HAT"=:PRINTD"MANN VERLOREN !" 


IFD>3000 THEND=RND (3000) : 

GOSUB1240: 

PRINT" ABER DEINE ABTEILUNGEN STANDEN SCHON ZU 
DICHT VOR "N$"’S";: 

PRINT" HEER. DU HAST BEI DIESEM": 

PRINT" SCHUSS"D"MANN EINGEBUESST !": 

SCREENO, 1 


GOTOS40 


CLSö: 
PRINTSS2," DIE COMPANIEN SIND VORGERUECKT: "3: 
GOSUBY35: GOSUBB20: GOSUBB25: GOSUBSOL 


D1=RND (4500) : 60OSUB1255: 

PRINTSS2," "N$" HAT"DI"UND "3: 

D=RND (4500) : GOSUB1 240: 

PRINT"DU HAST": 

PRINTD"DEINER SOELDNER IN DER": 

PRINT" SCHLACHT VERLOREN. ": 

IFDI<D THEN GOSUBS15: 

PRINTS3S2," DIESE STRATEGIE WAR MURKS!"3: 
SCREENO, 1: 

GOTOS40ELSEGOTOS40 
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375 IFS$="DRASON" AND SS<1 THEN 290 
ELSE 
CLS7: 
G0SUB9OS: 6OSUB9F16: 
PRINTSSS, "KATAPULT ABSCHIESSEN 
IFSS<1 THENPRINTS99,"KEINS DA 
G0T0540 
ELSE 
PRINTS103,; 


37& PRINT"WELCHES ZIEL, SIR: ";: 
PRINTS155, "DIE bURGANLAGEN DODER";: 
PRINTS1657,"DAS hEER DES FEINDES?"; 


380 PRINTS246,;: 380 Dieselbe Entscheidung für das Kata- 
IFS$="DRAGON" ANDN<NW THEN PRINT" BURG "3: pult. 
A$="B":60T0385 
ELSE 
IFS$="DRAGON" THEN PRINT" HEER "3: 
A$="H":60T0390 


382 A$=INKEY$: 
IFA$="B" THENPRINT" BURG "3:60T0395: 
ELSE 
IFA$="H" THENPRINT" HEER"; :G60T0390 
ELSE382 


385 60SUB1480: GOSUE 1440: GOSUB9Y9IS: 
PRINTS192,;: 
X=RND (10): 
IF X=5 THEN 
PRINT" ES IST NACH HINTEN LOSGEGSANGEN !!!"s 
D=RND (1000) : GOSUB1250: 
PRINT" DU HAST"D"TREFFER-PUNKTE": 
PRINT" VERLOREN !'":60T0540 
ELSEX=RND (2) 


3586 IFX=2 THENGOSUB1300:60T0540 
ELSE 
D=RND (11000) : GOSUR1270: 
PRINT" "N$"’S BURG HAT: "D"TREFFER-PUNKTE 
VERLOREN '!": 
60170540 


390 GOSUB1480: GOSUB1440: GOSUBY9IS: 
PRINTS192,;:z 
X=RND (3) : IFX<S35 THENGOSUB1300: 60TOS40 
ELSE 
D=RND (11000) : 6GOSUB1250: 
PRINT" "N$" HAT"D"MANN VERLOREN" :GOTOS40 


395 CLSS: 395 Spielroutinen für humanoiden Ge- 
genspieler beginnen hier. 


400 IFSC<=O THEN 
PRINTS99, "NIEMAND UEBRIG, SIR!";:60T0540 


405 PRINTS97,"WIEVIELE WILLST DU"z: 
PRINTS129, "REKRUTIEREN "ı; 
PRINTS143,3: 

D=4 : GOSUB1 000: A=VAL (DI$): 

IFA>SC THEN 

PRINTS97,"ES SIND NUR NOCH"SC"UEBRIG!"3: 
PRINTS129,"PASS’ BESSER AUF "3:60T0540 
ELSE 

SC=SC-A: SW=SW+A: GOSUB785 


405 GOSUBY25: 
PRINTSS78, "sie";: 
PRINTS401,"zie"z;: 
PRINTS405, "hen";3: 
PRINTS425, "an"CHR$ (128) "die"z;: 
PRINTS452, "front" ; : SOTOS40 


20 


435 Bei jedem Spieldurchgang wird die- 
se Zahltagroutine abgefragt, und beim 6. 
Mal durchgeführt. 


436 Falls einer der Herrscher nicht mehr 
genug Dukaten für die Entlohnung der 
Söldner besitzt, entscheidet der Zufall, ob 
seine Leute (440-450) sterben, überlau- 
fen oder loyal bleiben. 


415 


420 


430 


451 


435 


456 


440 


445 


446 


450 


CLSS5: 
GOSUB9FS: GOSUBY4O: GOSUBYOS: 
PRINTSSS, "MOERSER KAUFEN: "; 


G0OSUB780: 

X=RND (99) : 

PRINTSS3, "UNTEN ERTOENT EIN LAUTES "u 
PRINTS&5, "HORN. EINER DER HAENDLER FRAGT"3: 
PRINTS97,"WIEVIELE MOERSER ZUM PREIS VON";= 
PRINTS129,X"DUKATEN DU MOECHTEST: "2 


PRINTS155,3;: 

D=4 : G0OSUB1000: 

PRINTS97,STRING$ (30,207) 35: 
PRINTS129,STRING$ (530,207) 3: 
A=VAL(DI$®): 

Al=A:Al=A1l8X: 

IFA1>SM THEN 

PRINTS3SS, "ES IST NICHT MEHR SOVIEL 
PRINTS55, "BARES IN DER KASSE, SIR! 


GOTOS40 

PRINTSS3S3,"SIE SIND SCHON UNTERWEGS ”.3. 
PRINTS55, "ZU IHREM ARSENAL, SIR ! ”.:. 
SM=SM-A1:CS5=-CS+A: 60T0540 

M5=MS+2: 

IF MS5<12 THENRETURN 

ELSE 

CLS5: 

GOSUB9YSO: GOSUBY25: 


PRINTSS32," ZAHL TAG !":6G0OSUB796: 
PRINTS9S," JE SOELDNER WERDEN 2 DUKATEN": 
PRINT" ABGEZOGEN.": 

MS5=0: P=NW#2:P1=5W#2: NM=NM-P : SM=SM-P1 


IFNM<=O0 ANDSM<=0 THEN450 
ELSE 

IFNM<=O THEN445 

ELSE 

IFSM<=O0 THEN440 
ELSEGOTOSSSELSERETURN 


X=RND (2): 

IFX=1 THEND=RND (SW) =: SW=SW-D: 
PRINTD"VON "S$"’S LEUTEN ": 

PRINT" SIND DES HUNGERS GESTORBEN...": 
G60T05355 

ELSE 

D=RND (SW) =: SW=SW-D: NW=NW+D: 

PRINTD"VON "S$"’S5 SOELDNERN": 

PRINT" SIND ZU "N$""”5 HEER": 

PRINT" UEBERGELAUFEN. ..":60T0535 


X=RND (2): 

IFX=1 THEND=RND (NW) : NW=NW-D: 
PRINTD"VON "N$"”5 LEUTEN ": 

PRINT" SIND GERADE VERHUNGERT...": 
G0T05355 


D=RND (NW) : NW=NW-D: SW=SW+D: 

PRINTD"VON "N$"”5 LEUTEN": 

PRINT" HABEN DIE SEITEN GEWECHSELT.": 
GOTOSSS 


X=RND (2): 

IFX=1 THEN D=RND (NW) : NW=NW-D: 
PRINTD"VON "N$"’S LEUTEN": 

PRINT" SIND GERADE VERHUNGERT...": 
6070455 

ELSE 

PRINT" "N$" HAT KEIN GDLD MEHR,"”: 
PRINT" ABER SEINE MAENNER SIND LOYAL”: 
G0T0455 
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470 


475 
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X=RND (2): 

IFX=1 THEND=RND (SW) =: SW=SW-D: 
PRINTD"DER LEUTE VON "S$: 

PRINT" SIND AN UNTERERNAEHRUNG ": 
PRINT" ZUGRUNDE GEGANGEN...": 
G60T0535 

ELSE 

PRINT" TROTZ FEHLENDEM SOLD BLEIBEN": 
PRINT" "S$"”’S KRIEGER LOYAL '": 









6010535 
60T0535 
NIE Necıım HT BE LOHR. DEIB HEER LET VERNICHTET, Die 
Na MaStHeR RT BURS HURDE VOR OTTors 
EEE Er FRUFPEN EINHENUNNEN F |  - 
CLS6: 465 Das Heer des Nordreiches ist ver- 
G0OSUBB40: nichtet. 840 zeichnet ein Kreuz mit der In- 
"SCHLECHTE NACHRICHT "NS"; " alt rli 
ae IE: HERR schrift RIP, 772 spielt die ersten Takte von 
PRINTS32, "DEIN HEER IST VERNICHTET. DIE": »New Orleans Function«. 
PRINT"BURG WURDE VON "Ss"’S "; 
PRINT"TRUPPEN EINGENOMMEN !"; 
G0SUBS35: YX=2: 6070615 
CLS5: 
GOSUBS40: 
PRINTS32, "SCHLECHTE NACHRICHT "S$":"; 
G0SUB772: 


PRINTS32,"DEIN HEER IST VERNICHTET. DIE": 
PRINT"BURG WURDE VON "N$"’5"; 
PRINT"TRUPPEN EINGENOMMEN !"z 





GOSUBS35: YX=1:60T0615 

X=RND (100): 475 Routine für die Hilfssendungen der 
IFX>15 THENRETURN Väter. Besonders erfreulich, wenn der Zu- 
nn 2 fallsgenerator P auf 7 steht: Er weist dann 
IFR>7 THENRETURN auf Zeile 490, die die ganze »Latte« der 
ELSE Geschenkmöglichkeiten zur Verfügung 
G53s stellt. 

GOSUBI40: 

PRINTSSS, " AHOY !":SCREENO,1: 

GOSUB791: 

PRINTS97,N$"’S VATER SCHICKT:": 

P=RND (7) 


480 


481 


485 


490 


495 


500 


510 


514 


515 


516 


IFP=1 THENX=RND (100) : CN=CN+X: 
PRINTS181,C$;X;: 

G60T0535 

ELSE 

IFP=2 THENX=RND (10000) : NW=NW+X = 
PRINTS161,W$;X;: 

6010535 

ELSE 

IFP=3 THENNS=NS+1: 
PRINTS151,D$; "1";: 
GOTOSSSELSE481 


IFP=4 THENX=RND (20000) :N=N+X: 
PRINTS1&1, "EINE REPARATUR-COLONNE = ": 
PRINTS19S35, ;3H$; X: 

6010535 


IFP=5 THENX=RND (30000) : NM=NM+X: 
PRINTS1681,M$;X;: 

G60T0535 

ELSE 

IFP=& THENX=RND (10000) = NC=NC+X: 
PRINTS1681,E$;X;: 

60T0535 

ELSEIFP=7 THEN490 


CS5=RND (500) : WS=RND (30000) : NS=NS+1: 

=RND (30000) = MB=RND (30000) : ES=RND (10000) : 
CN=CN+C5: NW=NW+WS: N=N+HS5: NM=NM+MB: NC=NC+HES: 
PRINTS181,C$; :PRINTUSING" ###4#" ; C5: 
PRINTB$; W$; :PRINTUSING" #####" ; WS 


PRINTB$;D$; " 1": 

PRINTB$; "REPARATUR-COLONNE = ": 
PRINTB$S; H$; :PRINTUSING" ####4#"; H5: 
PRINTB$; M$; : PRINTUSING"#####" ; MB: 
PRINTB$S; E$; :PRINTUSING" ####4#"; ES: 
X=RND (5): 
PRINTB$; "UND"; X; "SPIONE ":1=I+X 


G0T0535 

X=RND (100): 

IFX>15 THENRETURN 

ELSE 

IFS$="DRAGON" AND@>=1 THENGOTOSOO 
ELSE 

Ri=Ri+i1: 

IFR1>7 THENRETURN 

ELSECLS7: GOSUBY40: 

PRINTSSS,” AROY 23° 


SCREENO, 1: G0SUB791: 
PRINTSI7,5$"’S VATER SCHICKT: ": 
8=@+1:P=RND (7) 


IFP=1 THENX=RND (100) :08=C$+X: 
PRINTS161,0$;X; 6010535 

ELSE 

IFP=2 THENX=RND (10000) : SW=SW+X : 
PRINTS161,W$; X; :60T0535 

ELSE 

IFP=3 THENSY=SY+1: 
PRINTS161,D$; "1"3:60T0535 


IFP=4 THENX=RND (20000) »8=S+X: 
PRINTS161, "REPARATUR-COLONNE = ": 
PRINTS193,H$; X: 6010535 


IFP=5 THENX=RND (30000) : 
IFSM<=0 THENSM=X 
ELSESM=SM+X: 
PRINTS1&1 ,M$; X; :60T05355 


IFP=5 THENX=RND (10000) :SC=SC+X: 
PRINTS161,E$; X; :GDT0535 
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520 


5265 
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C5=RND (500) = WS=RND (30000) »SY=SY+1: 
HS=RND (50000) = D=RND (30000) » ES=RND (10000) : 
C5=CS+C5: SW=SW+W5: S=S+H5: 

IFSM<=0 THENSM=D 

ELSE 

SM=SM+D: SC=SC+ES 


PRINTS161,C$; :PRINTUSING"#####" ;C5: 
PRINTL$; W$; :PRINTUSING" #444"; WS: 
PRINTS225,D$s;" 1": 

PRINTS257, "REPARATUR-COLONNE =": 
PRINTS289, H$; :PRINTUSING" ##4H4#" ; H5: 
PRINTSS21 ,M$3 :PRINTUSING" #444" ;D: 
PRINTL$;E$; :PRINTUSING"#4###4#" 3 ES: 
X=RND (5) 


PRINTS385, "UND" 3 X3 "SPIONE": I1=I1+X 





IFINKEY$>""THEN 
PRINTS4980, 3: 
FORX=1 T020: 
PRINT: 
FORY=1 T019: 
NEXT: 
NEXT: 
RETURNELSES53S 


IFINKEY$>"" THEN 
G0SUBS41:60T085 
ELSES40 


PRINTS480,;: 
FORX=1 T020: 
PRINT: 
FORY=1 T019: 
NEXT: 
NEXT 


RETURN 
C$="MDERSER : ":W$="SOELDNER ."s; 


D$="KATAPULT : ":H$="TREFFER-PUNKTE: ": 
M$="DUKATEN : ":E$="BAUERN 2"; 


535 Diese Routine wartet auf irgendeinen 
Tastendruck und läßt dann das Bild nach 
oben weg-»scrollen« — ganz einfach er- 
zeugt: 1. Cursor nach links unten, 2. Druck 
einer Leerzeile, 3. kurzes Warten mit 
Schleife, 4. Druck nächster Leerzeile — 
usw. bis 20. Mit jedem Druck einer neuen 
Zeile unten am Bildschirm rutscht der gan- 
ze Text bzw. das Bild eine Zeile nach 
oben. Der Trick liegt in der richtigen Länge 
oder vielmehr Kürze der Warteschleife. So 
wird hier ein für das Auge kontinuierliches 
Nach-oben-Wandern des Bildes erzeugt. 


540 Wie 535, nur mit anderer Zielzeile. 


545 Strings für Spielmöglichkeiten. Alle 
haben die gleiche Länge - dies erleichtert 
das Ausrichten des Textes. 





550 Hier wird das Spiel wegen mangeln- 
der Trefferpunkte beendet — die Burg ist 
zerschossen. Bildaufbau: 940 Burg links, 
840 Kreuz RIP, 772 »New Orleans Func- 
tion«. 





560 Beginn der Attentatsroutine. 945 
zeichnet die große, bildfüllende Burg, 965 
bildet Bilder, Bewegung und Töne des 
Spions. 


570 Das Attentat kostet 10000 Dukaten, 
und der Spion muß 1 bis 5 Wächter über- 
winden. 


555 


CLSS: 

GOSUBS40: GOSUBIAO: 

PRINTS32, "PARDON, "N$;"=2": 

60SUB772: 

PRINTSS2,"DEINE BURG WURDE VON KOENIG": 
PRINTS$;" GESCHLEIFT '*: 

PRINT"DU FLIEHST !!";z 

YX=2: 60SUBS35: 6010615 


CLSö: 

GOSUB940 : GOSUBB4O: 

PRINTSS32, "PARDON, "S5$":": 

60SUB772: 

PRINTSZS2,"DEINE BURG WURDE VON KUENIG": 
PRINTN$S” IN TRUEMMER": 

PRINT"GESCHOSSEN '": 

PRINT"DU BIST ERLEDIGT '!'": 
YX=1:60SUB535: 60170515 





570 


X6=0: 


GOSUB945: GOSUB9I65: 

PRINTSO," ATTENTAT tt!" 
SCREENO, 1: 

GOSUB765: GOSUB765: GOSUB765 


IFNM<10000 THEN 


PRINTS54, "IHR HABT NICHT GENUG GELD, SIR!": 


GOTOS40 


IFI<=0 THEN 

PRINTSö4, "DIE SPIONE SIND TOT, SIR!": 
60T0540 

ELSE 

x4=RND (5): 

IFX4=1 THENS7O 

ELSEI=I-1: 

G0SUB810: 

PRINTSO, "DER SPION MUSS"X4: 
PRINT"WAECHTER UEBERWINDEN!": 
NM=NM- 10000 
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FORX2=1 TOX4: 
XS=RND (2) 


IFXS<>1 THEN 


GOSUBS0S: 
PRINTS128+X58, "DIE WAECHTER HABEN IHN GETDETET!"3: 
SOUND150, 15: 60T0540 
ELSE 
G0SUB805: 
PRINTS128+X5, "EINER KO '!"; 
GOSUB765: X4=-X6+64: 
NEXTX2: 
G0SUB805: G0OSUB7S55: 
PRINTS128+X6, "ER HAT’S GESCHAFFT!": 
SCREENO, 1: GOSUBSS5: 6GOTO&#00 


X5=0: 

GOSUB947: GOSUBIS7: 

PRINTSO," ATTENTAT ttım, 
SCREENO, 1: 

G0SUB765: GOSUB765: GOSUB755: 


IFSM<10000 THEN 
PRINTS64,"IHR GELD REICHT NICHT, SIR!": 
60T0540 


IFI1<=0 THEN 
PRINTS&4,"DIE SPIONE SIND DOCH TOT!": 
G60T0540 
ELSE 
X4=RND (5): 
IFX4=1 THENS9O 
ELSE 
I1=11-1: 
G0SUB810: 
PRINTSO,"DER SPION HAT ES MIT": 
PRINTX4"WAECHTERN ZU TUN!"s 
SM=S5M-10000: 
FORX2=1 T0X4: 
X35=RND (2) 


IFX3<>1 THEN 
G60SUB805: 
PRINTS128+X5, "DIE WAECHTER HABEN IHN ERSTOCHEN"; : 
SOUND150, 15: 
60T0540 
ELSE 
G60SUB805: 
PRINTS128+X5, "EINER ERLEDIGT '!"s 
GOSUB765: X5=X6+654: 
NEXTX2: 
G605UB805: GOSUB755: 
PRINT"ER HAT’S VOLLBRACHT !": 
SCREENO, 1: 60SUBS35: GOTO605 


Yı=1r: 

CLSS: 

PRINTS150," "N$"’S SPION HAT"3: 
PRINTS224, "KOENIG "S$" GETOETET ! ı :-. 


XX=XX+1: 
IFXX=10 THEN&02 
ELSE&00 


xXX=0: 
605UB770: 6GOSUBS3S5: 60T0515 


CLS7: 
PRINTS160," "S$"’S SPION HAT"3: 
PRINTS224," KOENIG "N$" GETOETET ! ı er, 


xXX=XX+1: 
IFXX=20 THEN&07 
ELSE505 


600 Erfolg des Spions bei seiner schänd- 
lichen Tat. 


607 XX=0: YX=2: GOSUB770: GOSUBSSS: GSOTO615 


615 Mit jedem gewonnenen Spiel — es 615 WB$=" (0) WASSERTRAEGER FUER GOOFY !": 
kann 5 Durchgänge geben — wird der stra- er (1) VARUuS’S STRATEGIE BERATER! 
brbuhiun Fiae de JL$="(2) JERRY LEWIS IM KRIESSFILM!": 
9 ng besser. NB$="(3) BONAPARTE BEI WATERLOO !": 
GW$="(4) HANNIBAL BEI CANNAE ! “; 


LB$="(5) LOUIS XIV. BLUTHERRSCHER! " 


ERBE ERNFELIZESZE SZ ERS ZEIR ET ET I 


2 
R 
R 
E) 
4 
N 
R 
| 
B 
4 
E 


Wachau: Di 


SEEEERERESESEEERSERBERKERENUE RN 





620 Rangbezeichnung: 940 Burg links, 620 CLS3: 
901 Bildumrandung, 740 Siegaddition, G0SUB940 : GOSUB9O1 : GOSUB740: 


Ni1=(32-LEN (N$) ) /2: 
Berechnung der Namenslänge, Druck des PRINTS6S+N1, T1$5N$""S RANG 2"3T$3: 


Namens mit Schmuckrand, Rangbe- PRINTS129,5: IFWR=0 THENPRINTWBS$; 
zeichnung mit Ton. ELSE 
IFWR=1 THEN 
PRINTSA$; 
ELSE 
IFWR=2 THEN 
PRINTJLS$; 
ELSE 
IFWR=3 THEN 
PRINTNB$; 
ELSE 
IFWR=4 THEN 
PRINTGWS; 
ELSE 
IFWR=5 THEN 
PRINTLBS$} 


630 IFWR=0 THEN 
SOUND100,10 
ELSE 
IFWR=1 THENSOUND150,10 
ELSE 
IFWR=2 THENSOUND180,10 
ELSE 
IFWR=3 THENSOUND200, 10 
ELSE 
IFWR=4 THENSOUND220, 10 
ELSEIFWR=5 THENGOSUB765: GOTOSH0ELSES3S 


6355 Ni1=(32-LEN (S$)) /2: 
PRINTS22S+N1,T1$5$"’5S RANG =:"T$;: 
PRINTS289,;: 

IFER=0 THENPRINTWBS$S; 
ELSE 
IFER=1 THENPRINTSAS$; 
ELSE 
IFER=2 THENPRINTJLS$S; 
ELSE 
IFER=3 THENPRINTNBS; 
ELSE 
IFER=4 THENPRINTGWS; 
ELSE 
IFER=5 THENPRINTLBS$; 


640 


650 


670 


28 


IFER=0 THENSOUND100, 10 
ELSE 
IFER=1 THENSOUND150, 10 
ELSE 
IFER=2 THENSOUND180,10 


IFER=4 THENSOUND220, 10 
ELSEIFER=5 THENGOSUB765: GOTOSS5ELSE545 


IFER<{S THENGOSUB735: 6GOTO#50 


PRINTS4683, "NOCHMAL: j?n";: 
FORX=1T0300: NEXT: 
A$S=INKEYS$S: 

IFA$=""THEN 
PRINTS475,CHR$ (255) ;: 
FORX=1T0300: NEXT: 
G60T0550 

ELSE 

IFA$="N" THENISO 

ELSE6S5S5 

PRINTS477,;: 
D=-1:60S5UB1000: 

IFDI$="J" THENS55 

ELSE 

IFDI$="N" THENFISOELSES5O0 


PRINTS354, "DIE GLEICHEN SPIELER <ENTER>"z3: 
PRINTS418, "NEUES SPIEL: neu <ENTER>"3: 
PRINTS4853, B$+51$+B$+51$+B$+S51$+B$+51$+B$+ 
S1$+B$+51$; 


PRINTS435, 35: 

D=3: GOSUB1000: 
IFDI$="NEU" THEN3S 
ELSEIFDI$<>"NEU" THENSS 


PRINTS1953,T1$;S$; T$5" HAT RANG "Ti1$;ER; T$;: 
PRINTS289, T1$;N$; T$5" JEDOCH ";3: 
PRINTSS21,"HAT SEIN KOENIGTUM "3: 
PRINTSSSS, "WEIT UBERTROFFEN UND WURDE ";: 
PRINTS385, "ZUM LANDESHERRSCHER GEKROENT!"33 
60SUB755: GSOSUB765: GOSUB765: GOSUB7 65: 
PRINTS448, ;:END 


PRINTS289,T1$;5$; T$;" JEDOCH ";: 
PRINTSS21,"HAT SEIN KOENIGTUM "3: 

PRINTSSSS, "WEIT UEBERTROFFEN UND WURDE "z: 
PRINTSS385, "ZUM LANDESHERRSCHER GEKROENT!"3: 
60SUB755: 6GOSUB7655: GOSUB765: GSOSUB765: GOSUB755: 
PRINTS448, ;:END 


IF NW<10000 OR N<10000 OR SW<10000 OR S5<10000 
THENRETURN 

ELSE 

XÄ=RND (1000) :: 

IFX>=500 ANDX<=515 THEN675 

ELSE 

X=RND (1000) = IFX>=500 ANDX<=515 THEN700 

ELSE RETURN 





650 Frage nach neuem Spiel mit blinken- 
dem Fragezeichen. 


660 Spielende, nachdem ein König fünf- 
mal gesiegt hat. 


670 Wenn eines der Reiche weniger als 
10000 Söldner oder Trefferpunkte hat, er- 
scheinen Flut und Pest nicht mehr (es war 
zu frustrierend, durch Flut oder Pest zu 
verlieren). 





675 Flutroutine: 1600 und 1620 zeichnen 
2 Burgen; 986 — blaues Wasser über- 
schwemmt von rechts unten her den Bild- 
schirm; 793 — an- und abschwellendes 
Orkangeräusch. 





700 Pestroutine: 840 Kreuz RIP, 920 und 
935 Fahnen rechts und links; 985 — eine 
schwarze Schlange mit feuriger Zunge 
überzieht von rechts unten aus den Bild- 
schirm; 792 — das einsame Ping-ping 
einer Totenglocke. 


675 


680 


685 


690 


695 


CLSO: 

GOSUB9I8&5: GOSUB9IFO: 

PRINTSO," ORKAN! WOLKENBRUECHE! FLUT!": 
SCREENO, 1: G0SUB795 


D=RND (10000) : 

GOSUB1250: 

PRINTS65, STRING$ (20,143) 5: 
PRINTS65,N$"’S VERLUST: "3: 
PRINTS97,W$; :PRINTUSING"4HHHHR" 3 Ds : 
D=RND (10000) : GOSUB1270: 
PRINTS129,H$3 :PRINTUSING "44H" ; Ds 
D=RND (250) : GOSUB1220: 
PRINTS161,C$; :PRINTUSING"3HHHHH" ; D; 


D=RND (1000) =: GOSUB1250: 
PRINTS195,E$; :PRINTUSING"#####";D; 


GOSUB810: PRINTS257,STRING$ (20,143); 
PRINTS257,5%$"’S VERLUST: "3: 

D=RND (10000) : GOSUB1240: 
PRINTS289 ,W$3 :PRINTUSING"44Hhh" 3 Ds 
=RND (10000) : GOSUB1250: 
PRINTS321,H$; :PRINTUSING "#444" + D; 
D=RND (250) : GOSUB1200: 
PRINTSSS3,C$; :PRINTUSING" #4" 3 D; 


D=RND (1000) : GOSUB1210: 
PRINTSS85, E#; :PRINTUSING" #####",D; >: 
GOSUBSS5: RETURNELSERETURN 





700 


CLSö: 

GOSUB840: GOSUBYB5: 

PRINTSO," KATASTROPHEN '" 
PRINT" DIE NAHRUNG IST VERDORBEN '": 
PRINT" PEST ZIEHT DURCH’S LAND '": 
SCREENO, 1:60SUB772 
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705 PRINTS128,STRING$ (20,32); 
PRINTS128,N$"’S VERLUST:" 
D=RND (10000) » G0OSUB1250: 
PRINTS160, W$; :PRINTUSING" #4H4hähh" 3 Ds; : 
D=RND (10000) : S0OSUB1 270: 
PRINTS192, H$; :PRINTUSING"#4HH6äh" ; D; : 
D=RND (1000) » GOSUB1230 


: 
-. 
-” 


710 PRINTS224,E$; :PRINTUSING" #####"3Dz;: 
G60SUB810 


715 PRINTS288, STRING$(20,32)3: 
PRINTS288,5$"’S VERLUSTz"z: 
D=RND ( 10000) : GOSUB1240: 
PRINTS320,W$; :PRINTUSING" #444" 3 D; : 
D=RND ( 10000) : GOSUB1260: 
PRINTS3S2, H$; :PRINTUSING"#4HHHR" 3 D; : 
D=RND (1000) : 60OSUB1210 


71& PRINTS3S84,E$; :PRINTUSING"#####",Dz: 
G60SUBS35: RETURNELSERETURN 


720 GOTOS40 


725 IFNW<=O THEN455 
ELSE 


IFN<=0 THENSSOELSE730 


7530 IFSW<=0 THEN470 
ELSE 


IFS<=0 THENSSSELSERETURN 
735 60SUB815: RETURN 


740 IFYX=1 THENWR=WR+1 
ELSE 
IFYX=2 THENER=ER+1 :RETURN 


745 IFYX=2 THENER=ER+1 
ELSEER=ER: RETURN 


750 6070650 


755 FORL=85 T0255 STEP2: 
SOUNDL,„1: 
NEXT:RETURN 


760 X=RND (4): 
ON X 60SUB761,762,763,764: 
G0SUBB10: RETURN 


761 FORL=30 TO1STEP-S3: 
SOUNDL,1: 
NEXT: 
SOUND2SO, 1: 60SUB1800: RETURN 


7&2 FORX=1 T012: 
SOUND220, 1: 
FORY=1T020: 
NEXT: 
NEXT: 
G0OSUB1800 : RETURN 


763 FORX=15 TO1STEP-1: 
SOUND235+X,1: 
FORY=1T020: 
NEXT: 
NEXT: 
G60SUB1800: RETURN 


725 Abfrage bei jedem Spieldurchgana: 
Hat jeder der Könige noch genug »Mate- 
rial« — Söldner, Punkte, Mörser etc. —. um 
weiterzuspielen? 


755 -801 Musik und Töne. 
755 Erfolgreiches Attentat 


760-764 verschiedene Tonfolgen für 
Schüsse, 


765 Durchführung des Attentats 


772 »New Orleans Function« 


775 »Happy Days Are Here Again« — 
Söldner entlassen 


780 Signalruf — Mörser kaufen 


785 »You Are In The Army Now« — Bau- 
ern heuern 


791 Marsch aus 
schickt Geschenke 


»Carmen« — Vater 


792 Totenglocke — Pest 


793 Brausender Orkan — Flut 


796 »Wir versaufen unsrer Oma ihr klein 
Häuschen« — Zahltag 


801 »Peer Gynt Suite« — In die Schlacht 
vorrücken 


805-817 Warteschleifen verschiedener 
Länge 


764 


765 


770 


772 


773 


775 


780 


785 


7970 


791 


792 


793 


795 


796 


797 


801 


8902 


805 


810 


FORX=1T015 : 
SOUND220+X,1: 
FORY=1 T020: 
NEXT: 
NEXT: 
GOSUB1800: RETURN 


FORL=100 TO150 STEPS: 
SOUNDL,1: 
NEXT=RETURN 


PLAY"TS303DP18L8DP8LSDDPZIFPBLBEEPS 
OLSDDPSOLSCHD": 
RETURN 


65070772 


SOUND100, 5: SOUND130, 2: 
FORX=1T020: NEXT: 
SOUND130, 9: SOUND151,5: 
FORX=1T020: NEXT: 
SOUND151 , 5: SOUND179, 2: 
FORX=1T010: NEXT: 
SOUND179,10: 

RETURN 


SDUND100, 10: SOUND1350, 5: SOUND150, 10: 
FORX=1 TO 20:NEXT: 
SOUND150, 2: SOUND179,30: 

RETURN 


SOUND1 „5: SOUND70, 3: 

FORX=1T030: NEXT: 

SOUND7O, 3: SOUND1 10,5: SOUND1 „ 2:SOUND70, 3: 
RETURN 


PLAY"VSOTBO4CFP2ZTSCCTSOSADUACCOFADACF" : 
RETURN 


FORX=1T03: 
PLAY"T1004V31AV15AV10OAVSAPSVS1AV1S5A 
V10OAVSAPI1P1": 
NEXT: 
RETURN 


FORX=1T03: 

PLAY" T20V3102CC#DD#EV2OFF#566#AA# 
V10BBAHAVSGHGFHFV2D#HDCHCP1 
P1P1VS30T101": 

NEXT: 
RETURN 


’SOUND125, 4: SOUND149, 9: SOUND125, 2: 
SOUND136, 5: SOUND149, 25: RETURN 


PLAY" T3SOSLBEGO4CPSOLSCOFSBOACDT 
OSBALSGP40OLSE" : 

RETURN 

6010797 


PLAY" TSOSL1EO2LA4ABOSCDLZELA4CL2EL4": 
RETURN 


FORX=1 T0250:NEXT: RETURN 


FORX=1T0500: NEXT: RETURN 


31 


811 
812 
815 
816 


817 


700 


910 
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FORX=1T0750:NEXT:RETURN 
FORX=1T01000: NEXT: RETURN 
FORX=1T02000: NEXT: RETURN 
FORZ=1T010:NEXT: RETURN 
FORX=1 T03000:NEXT: RETURN 


FORY=15 TO22 STEP2: 
FORX=5 TO1i1& STEP2: 
X1=RND (10) :Y1=RND(S5): 
SET(X+X1,Y+Y1,5): 
NEXT: 
NEXT: 
RETURN 


FORY=24 T027: 

FORX=50 TO 58 STEP2: 
Yi=RND (4) :X1=RND(4): 
SET(X+X1,Y+Y1,5): 

NEXT: 

NEXT: 
RETURN 


FORY=9 TO21 STEPS: 
FORX=-12 TO42 STEP&: 
Yi=RND (5) :X1=RND(10): 
SET(X+X1,Y+Y1,5): 
NEXT: 
NEXT: 
RETURN 


FORX=239T0429STEP32: 
PRINTSX,S51%;: 

NEXT: 

PRINTSS00, STRING$ (7,51%) ;: 

PRINTS459,STRING$ (9,51%) ;: 

PRINTS490,STRING$ (11,51%); : 

PRINTSS02,"rip"3: 

RETURN 


PRINTSO,STRING$ (32,166) ;: 

PRINTS480, STRING$ (31,166) 3: 

FORX=32 T0448 STEPS2: 
PRINTSX,CHR$ (165) ;: 
PRINTSX+31,CHR$ (1656) ;: 

NEXT: 

POKE1535, 186: RETURN 


PRINTSO,STRING$ (32,148) ;: 

PRINTS480, STRING$ (31,146); : 

FORX=32 T0448 STEPS2: 
PRINTSX,CHR$ (146) ;: 
PRINTSX+31,CHR$(148);: 

NEXT: 

POKE 1535, 148:RETURN 


PRINTSO,STRING$ (32,230);: 

PRINTS480,STRING$ (31,230) 3: 

FORX=32 T0448 STEPS2: 
PRINTSX,CHR$ (230) 3: 
PRINTSX+31,CHR$ (250) 3;: 

NEXT: 

POKE 1535, 230: RETURN 


PRINTSSSS,PL$; :PRINTSSS4, PU$; : 
PRINTSSSS, S1$; :»PRINTSSS6, PU$; : 
PRINTSSS7,PR$; :PRINTSS53,PL$; : 
PRINTSS64, STRING$ (7,51%) 3: 
PRINTSS71,PR$; :PRINTSS9S5,STRING$ (9,51%); 


820-825 Mit Zufallsgenerator erzeugter 
Pulverdampf 


840 Schwarzes Kreuz mit der Inschrift 
RIP 


900-905 Verschiedene Bildumrandun- 
gen. Aufbau: 1. oberer Rand, 2. unterer 
Rand, 3. Schleife für rechts und links 
gleichzeitig. 4. rechte untere Ecke 


910 Mörser Nordreich 


912 Mörser Südreich 


914 Katapult Nordreich 


916 Katapult Südreich 


920-935 Rechts und links stehende, ver- 
schiedene, große und kleine Fahnen. 


911 


912 


913 


714 


915 


916 


917 


920 


PRINTS424, STRING$(15,5S1$) 3: 

PRINTS459, CHR$ (171) 35: 

PRINTS460, STRING$ (7,51%) 35: 

PRINTS467,CHR$ (167) 5: 

FORX=360 T0456 STEP 32: 
PRINTSX,S1$;: 
PRINTSX+14,Si1$3: 

NEXT: 

RETURN 


PRINTSS33,LL$+LUS+S1$+LU$+LR$3 : 
PRINTSS63,LL$+STRING$ (7,S1$) +LR$; : 
PRINTS39S5,STRING$ (9,51%); 


PRINTS424,STRING$ (15,51%) 3: 

PRINTS459, CHR$ (235) ;: 

PRINTS480, STRING$ (7,51%) ;: 

PRINTS457,CHR$ (231) 3: 

FORX=360 TO455STEP32: 
PRINTSX,Si$;: 
PRINTSX+14,51%; : 

NEXT: 

RETURN 


PRINTS293,CHR$ (155) 3; : 
PRINTS294,CHR$ (153) 35: 
PRINTSS2S5,PD$; :PRINTS325, PD$;3 : 
FORX=295T0435STEP36: 
PRINTSX,PU$; :PRINTSX+1,PU$;: 
PRINTSX+34,PD$; :PRINTSX+35,PD$; : 
NEXT: 
PRINTS455,STRING$ (16, PD$) ;: 
PRINTS480, STRING$ (10,51%); 


PRINTS458, S1$; :PRINTS456,S1$3 : 
PRINTS404,51$; :PRINTS435,PL$3;3 : 
PRINTS405, PR$; »PRINTS437,CHR$ (169) 3;: 
PRINTS425,51%;3 »PRINTSS93, PS$; : 
PRINTSS81,PS$; :PRINTSS29, CHR$ (162) ;: 
PRINTSS9S5,CHR$ (159) ;:PRINTSS92,CHR$ (166) 3: 
FRINTS428,51$%; : 

RETURN 


PRINTS310, CHR$ (150) 3 :PRINTS309,CHRS$ (150) 3: 
PRINTS342, KU$; : PRINTS341,KU$z : 
FORX=308T0416STEP28: 

PRINTSX,KD$; : 

PRINTSX-1,KD$; : 

PRINTSX+30,KU$; : 

PRINTSX+29,KU$; : 
NEXT: 
PRINTS453, STRING$ (16,KU$) 5: 
PRINTS454, STRING$ (10,51%); 


PRINTS457, 51%; :PRINTS423, 51%; : 
PRINTSSY1,51$%; »PRINTS422,KK$z3 : 
PRINTSS9O,LL$; :PRINTS424,LR$; : 
PRINTS4534, 51%; :PRINTS433,S1$; : 
PRINTSS70,KL$; :PRINTS402,KL$; : 
PRINTSSS38, CHR$ (225) ;: 
PRINTS405,CHR$ (2533) 35: 
PRINTS400, CHR$ (230) ;: 

RETURN 


FORY=14 TO28: 

SET(4,Y,4): 
NEXT: 
PRINTS227,STRING$ (6,233) ;: 
PRINTS259,STRING$ (5,207); : 
PRINTS291,STRING$ (6,2535) 35: 
RETURN 


33 


925 


930 


932 


933 


740 


741 


942 


945 


746 


FORY=14 T028: 

SET(4,Y,4): 
NEXT: 
PRINTS227,STRING$ (6,194) 5: 
PRINTS259, STRING$ (5,207) 3: 
PRINTS291,STRING$ (6,200) 35: 
RETURN 


FORY=10 TOS3S0: 

SET(40,Y,4): 
NEXT: 
PRINTS181,STRING$S (9,233) 3: 
PRINTS213,STRING$ (6,239) ;: 
PRINTS245,STRING$(7,207)3: 
PRINTS277,STRING$ (8,239) ;: 
PRINTSS309,STRING$ (9,233) 3: 
RETURN 


FORY=103T01687STEP32: 
PRINTSY,CHR$ (165) ;: 

NEXT: 

PRINTS98,STRING$ (5,150);: 

PRINTS131,STRING$ (4,150); 


FORX=208T0368STEP32: 

PRINTSX,CHR$ (165) 5: 
NEXT: 
PRINTS239, CHR$ (228) 5: 
PRINTS240,CHR$ (228) 35: 
PRINTS241,CHR$ (165) 35: 
RETURN 


FORY=10T030: 

SET (40,Y,4): 
NEXT: 
PRINTS181,STRING$ (9,226) ;: 
PRINTS213,STRING$ (6,239) 35: 
PRINTS245,STRING$ (7,128) 3: 
PRINTS277,STRING$ (8,239) ;: 
PRINTSS09, STRINGS$S (9,232) 3: 
RETURN 


S1$=CHR$ (128): 

FORX=1 TO10STEP2: 
PRINTS192+X,Si$;: 

NEXT: 

FORX=225 T0449 STEP32: 
PRINTSX,STRING$ (9,128) 3: 

NEXT 


FORY=16& TO28STEPS: 
FORX=3 TO 11STEP2: 
X1=RND (6): 
SET (X+X1,Y,8): 
NEXT: 
NEXT: 
FORX=1 TO22STEP2: 
PRINTS457+X, 51%; : 
NEXT 


RETURN 

CLSO: 

FORX=0 T054 STEP2: 
PRINTSO+X,CHR$(191);: 

NEXT 


FORX=0 T0288 STEP32: 


PRINTSO+X,STRING$ (9, 191);: 


NEXT=RETURN 


940 Burg links 


941 Mit Zufall erzeugte Fenster der Burg 


945 Große Burg des Attentatbildes Nord 


947 dito Süd 


950 Spiel-Ende: In der Mitte steht »AUF 
WIEDERSEHEN«; der blinkende Compu- 
tercursor wird mit PRINT 8 448 nach un- 
ten gesetzt, um das Bild nicht zu stören. 


960 Große Schußwolke 


965 u. 967 Schleichender Attentäter mit 
schauriger Tonbegleitung 


985 2 Fahnen neben dem Kreuz RIP. Die 
schwarze Schlange mit feuriger Zunge 
überzieht den Bildschirm. 


986 Eine blaue Flut schwappt über die 
Burgen. 


9747 


7680 


9765 


9665 


967 


9768 


970 


980 


981 


982 


985 


78& 


CLSO: 

FORX=0 T052 STEP2: 
PRINTSO+X,CHR$ (191) 3: 

NEXT: 

FORX=310 TO22 STEP-32: 

PRINTSO+X,STRING$ (10,191) 3: 

NEXT=:RETURN 


CLS7: 
PRINTS192," 
PRINTS448,;:END 


AUF WIEDERSEHEN '!": 


FORY=8 T022 STEP2: 
FORX=12 T048 STEPS: 
XI=RND (9) : Y1i=RND (6) : 
SET(X+X1,Y+Y1,8): 
NEXT: 
NEXT: 
RETURN 


YC=15: 
FORXB=10 TOS4STEP2: 
YB=RND (5) +YC: 
SET (XB,YB-1,8):SET (XB, YB+2,2): 
SET (XB+1,YB,8):SET(XB-1,YB,8): 
SET(XB,YB,8) SET (XB, YB+1,2): 
SOUNDXB+YB+100, 1: A=A+1: 
IFA=4 THENA=0: 
SET (XB+2, YB+7,3) SET (XB+3, YB+7,3) 


NEXT: RETURN 


YC=15: 

FORXB=54 T010 STEP-2: 
YB=RND (5) +YC:SET(XB,YB-1,8): 
SET(XB, YB+2,2):SET(XB+1,YB,8): 
SET(XB-1,YB,2):SET(XB,YB,8): 
SET(XB,YB+1,2): 
SOUNDXB+YB+100, 1: A=A+1: 
IFA=4 THENA=0O: 
SET (XB-2,YB+7,53):SET(XB-3,YB+7,3) 


NEXT: RETURN 


FORXS=0T0480 STEP54: 
PRINTSXS, STRING$ (32,150)35: 
NEXT= RETURN 


FORY=2 TO28: 
FORX=10 TO40 STEPS 


IFY>15 THENX2=15 
ELSEX2=5 


X1=RND (X2) :Y1i=RND (3) : 
SET(X+X1,Y+Y1,35): 
NEXT: 
NEXT: 
RETURN 


GOSUB920: GOSUBY3S: POKE15Z5, 128: 
FORX=510 T0191 STEP-1: 
PRINTSX-1,CHR$ (191) 3: 
PRINTSX-2,CHR$ (188) 35: 
PRINTSX,CHR$(128) 35: 
NEXT:RETURN 


GOSUB1600: GOSUB1620: POKE1535, 175: 

FORX=S10T00STEP-1: 
PRINTSX,CHR$(175) 3: 

NEXT: RETURN 


990 FORY=1 T05:CL55: 
FORX=1 TO2O:NEXT: 
CLSS: 
NEXT:RETURN 
995 FORY=1 TOS: 
CLS8: 
FORX=1 TO20:NEXT: 
CLS7: 
NEXT:RETURN 


1000 DI$="":C1$="":PRINTD2S; 


1010 SCREENO, 1: 
C1$=INKEYS$: 
IFC1$=""THEN1010 


1020 C=ASC (C1$) :=V=LEN(DI$) 


1025 IFC=45 THEN1010 


1040 IFV>O THENIFC=8 THEN1100 


1050 IFC=13 
THENIFV<D 
THENPRINTDS$; A7$; : 
RETURNELSERETURN 


1080 IFV=D THEN1010 


1070 IFC>31 AND C<9& THEN1075 


1074 GOTO1010 


1075 PRINTD3$; C1$; :DI$=DI$+L1$: C1$="";C=0 


1080 IFV<D-i1 THENPRINTD2$S; 


1085 60T01010 


1100 D1$=LEFT$(DI$,V-1) :PRINTDS$; A7$; D3S$; D2$; 


990-995 Blitze — hergestellt mit wech- 
selnder Bildhintergrundfarbe. 


1000-1120 Die allgemeine Eingaberouti- 
ne: D2$ = - als Cursor, DI$ = String der 
kompletten Eingabe, C1$ = String des 
einzelnen Zeichens. 


1010 Oranges Blinken beim Warten auf 
die Tasteneingabe; mit SCREEN 0, 1 er- 
zeugt. 


1020 Die Eingabe — ob Befehlstaste oder 
Zeichen — wird der Einfachheit halber in 
Zahlencode umgewandelt. V = Anzahl der 
Zeichen in der Gesamteingabe. 


1040 Taste mit dem Pfeil nach links (8) 
löscht in 1100 die links vom Cursor ste- 
hende Stelle — aber nur, falls schon etwas 
eingegeben wurde. (Also kein Löschen 
des Bildes!) 


1050 Mit ENTER wird die Eingabe been- 
det. Falls die Eingabe kürzer als erlaubt (D) 
ist, wird der Cursor gelöscht. D3$ ein 
Schritt nach links zurück, A7$ Ausdruck 
einer Leerstelle. 


1060 Nach Erreichen der erlaubten An- 
zahl von Eingabestellen wird nichts Neues 
mehr angenommen. Zurückverweisung 
an 1010. 


1070 Nur ASCII-Werte zwischen 31 und 
96 - Zahlen und Buchstaben — können 
hier passieren. 


1075 Ein Schritt zurück (D3$), Druck des 
eingegebenen Zeichens, Addition des 
Zeichens zum Gesamtstring. 


1080 Falls die Eingabe die erlaubte Län- 
ge noch nicht erreicht hat, Neudruck des 
Cursors (D2$). 


1100 Löschen der letzten Eingabestelle: 
Der Gesamtstring wird um ein Zeichen ge- 
kürzt; ein Schritt links zurück, Leerstelle 
überschreibt Cursor; ein Schritt zurück, 
Corsor überschreibt letzte Eingabestelle 
USW. 


1200-1271 Mengenabfrage, damit der 
Zufallsgenerator von Pest etc. nicht mehr 
vernichtet als vorhanden. 


1300 Schreibt einen der 10 blöden Sprü- 
che beim Vorbeischießen. 





1400-1445 verschiedene Schüsse von 
Mörser und Katapult — der Norden schießt 
nach rechts, der Süden nach links. Beim 
Schuß aufs Heer erscheint eine Fahne, 
sonst die Burg. Ein Zufallsgenerator zeich- 
net den Pulverdampf am Ende der Schuß- 
bahn. 1800 liefert das Explosionsge- 
räusch. 





1110 IFV<D THENPRINTDS$; D3$; A7$; A7$; DI$; DI$, D2$; » 
60T01010 


1120 PRINTDS$; A7$; D3$; D2$; :60T01010 
1200 IFD>CS THEND=CS 
1201 CS=C$S-D: RETURN 
1210 IFD>SC THEND=SC 
1211 SC=SC-D: RETURN 
1220 IFD>CN THEND=CN 
1221 CN=CN-D: RETURN 
1230 IFD>NC THEND=NC 
1231 NC=NC-D: RETURN 
1240 IFD>SW THEND=SW 
1241 SW=SW-D: RETURN 
1245 IFD1>SW THENDI1=SW 
1245 SW=SW-D1:RETURN 
1250 IFD>NW THEN D=NW 
1251 NW=NW-D: RETURN 
1255 IFDIi>NW THENDI=NW 
1256 NW=NW-D1:RETURN 
1250 IFD>S THEND=S 
1261 S=S-D: RETURN 

1270 IFD>N THEND=N 
1271 N=N-D: RETURN 


1500 XX=RND (10) »PRINTSP$ (XX) :RETURN 


» u es 


1 
IS ende 


1400 D=RND (2): IFD=1 THEN1425ELSECLSO 


1410 Y=29: 
FORX=3 TO48STEPS3: 
SET(X,Y,4): 
RESET (X-3,Y+1): 
Y=Y-1s 
SOUND220,1: 
NEXT 


37 


1415 


141& 


1420 


1424 
1425 


14530 


1454 


1455 


1440 


1442 


1444 


1445 


1450 


38 


IFA$S="B" THENGOSUB1&00 
ELSE 
IFA$S="H" THENGOSUB9I3S 


GOSUB1800 


FORX=40 TOD48STEP2: 
FORY=12 TOsSSTEP-2: 
X1=RND (10): 
Yi=RND (10): 
SET(X+X1,Y+Y1,2): 
NEXT: 
NEXT 


GOSUB8S10:RETURN 
ELSO 


Y=-29: 

FORX=5T038STEP&: 
SET(X,Y,4): 
RESET(X-6, Y+1): 
SOUND220+Y,1: 
Y=Y-1: 

NEXT 


IFA$="B" THENGOSUB1&00 
ELSE 


IFA$="H" THENGOSUB9IZS 


G60SUB1800: 
FORX=30T038STEP2: 
FORY=20T014STEP-2: 
X1=RND (10) :Yi=RND (10): 
SET(X+X1,Y+Y1,2): 
NEXT: 
NEXT: 
60SUB810: RETURN 


CLSO 


Y=21: 
FORX=54T018STEP-3: 
SET(X,Y,4): 
RESET (X+3,Y-.5): 
=Y+,5: 
SDOUND220+Y,1: 
NEXT 


IFA$="B" THENGOSUB1520 
ELSE 


IFA$="H" THENGOSUBI20 


G60SUB1800: 
FORX=12T02STEP-2: 
FORY=168T020: 
X1=RND (10): 
Yi=RND (9): 
SET(X+X1,Y+Y1,2): 
NEXT: 
NEXT: 
60SUB810: RETURN 


FORX=480 TO128STEP-30: 
CLSS: 
PRINTSX, "KOENIGE"3: 
SCREENO, 1: SOUND2S0, 1: 

NEXT: SOUND200, 1: SOUND250, 1: GOSUBS10 


1460 Titelerzeugung: die Schrift KÖNIGE 
wandert mit Tonbegleitung und blinkend 
von links unten nach rechts oben. 


1462 KÖNIGE steht im Bild, UND wan- 
dert den gleichen Weg. 


1464 dito BURGEN 


1470 Vortitel: 7 Farbbalken erscheinen, 
um das Einstellen der Farbe zu erleichtern. 


1472-1474 Während auf das Drücken 
einer Taste gewartet wird, spielt eine Zu- 
fallstonfolge. 


1480-1484 Zielroutine: Warten auf Ta- 
stendruck, abwechselnd Blinken von O, 1, 
STOP. 


1483. Wenn der Südkönig der Computer 
ist, schießt diese Routine nach 3 Blink- 
durchgängen von allein. 


1490 Der Bildschirm wird von oben nach 
unten mit Farbbalken überschrieben — 
d.h. gelöscht. 


1500 DIM-Anweisung für die Einleitung. 


1462 


1464 


1470 


1471 


1472 


14753 


1474 


1480 


1481 


1482 


1483 


1484 


1490 


1500 


1502 


1505 


FORX=480 T0192 STEP-29: 
CLSS: 
PRINTS150, "KOENIGE"3;: 
PRINTSX, "UND"; : 
SCREENO, 1: SOUND2S0, 1: 

NEXT: 

GOSUB810: RETURN 


FORX=482 T0258 STEP-29: 
CLSS3: 
PRINTS150, "KOENIGE"3: 
PRINTS219, "UND"; : 
PRINTSX,"BURGEN"3: 
SCREENO, 1: 
SOUNDX/10+200,1: 

NEXT:SOUND1BO, 1: 

GOSUB810: RETURN 


CLS: 

PRINT" BITTE FARBE UND TON EINSTELLEN": 
PRINTSTRING$ (32,207) :PRINTSTRING$ (32,159) : 
PRINTSTRING$ (52, 255) :PRINTSTRING$ (32,191): 
PRINTSTRING$ (32,239) :=PRINTSTRING$ (32,175): 
PRINTSTRING$ (32,225); 


PRINT" WEITER: HIER UND SPAETER IM 
SPIEL BITTE <ENTER> DRUECKEN."; 


TX=RND (12): 
IFTX=OTHENTX=1:” TX=TX#10 


TX$=STR$(TX) 


IFINKEY$>"" THENRETURN 
ELSEPLAY"T804; "+TX$: 
60101472 


PRINTSS3S76, "ZIELEN: "3; :DG=0 


PRINTS475,STRING$ (4,255) 35: 
FORX=1T050: NEXT: 

IFINKEY$>"" ANDDG=00RDG= >STHEN 
PRINTS259, "0"; : 
PRINTS273,"1"3:RETURN 
ELSEPRINTS475, "STOP"z: 
FORX=1T050: NEXT: 
IFSZ=1THEN1483 


PRINTS249, "0"3:5Z=1: 
FORX=1TO30: NEXT: 
PRINTS273, CHR$ (255) 5 :60T01481 


IFT=OANDS$="DRAGON" THENDG=DG+1 


PRINTS273,"1"3:57=0: 
FORX=1T030: NEXT: 
PRINTS269,CHR$ (255) ; :60T01481 


FORL=32T0448STEP32: 
PRINTSO+L,STRING$ (32,239) 5: 
NEXT: RETURN 


DIMX$ (13): 


X$(O)=" KOENIGE UND BURGEN #3":60SUB1700: 
CLSS: 
G60SUB1490 


X5=1:X=1:7Z=1 
X1$=MIDS(X$(Z),XS,1): 


PRINTSS2+X+Z2,CHR$ (175) 35: 
PRINTS31+X+72,X1$; 
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1510 
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1550 


1500 


1810 


16815 


181& 


1620 


1621 


IFX=32THENSOUND240, 1: 
SODUND2SO0, 1: 2Z2=72+32:X=0 

ELSE 

IFX1$="." THENZ=7+1: 
X5S=0ELSEIFX1$="2" THENZ2=72+32: 
X=0: Z=1+1: X5=0: SOUND2SO, 1 


IFZ2=>417 THEN1509ELSE1510 
IFINKEY$="" THEN1509 


ELSE72=0: 60SUB1490: 
IFZ=>12 THEN RETURN 








%=X+1:X5=X5+1:60701505 


CLS: 

GOSUB9Y20: GOSUBS 10: 6GOSUB1650: 

CLS: 

60SUB935: GOSUBS1 0: GOSUB1650: 
CLS8: G0OSUB910: 60SUBS10:GOSUB1650: 
CLSS: 60OSUB9I4O: GOSUBBSO: GOSUB1B00: 
GOSUB810: GOSUB1450 


60701550 


FORX=50T050STEP2: 
SET(X,8,3): 
NEXT: 
FORY=4T07: 
SETIST,Y,4): 
NEXT: 
SET(54,4,7):SET(55,4,7) 


FORY=9T020: 
SET (50, Y,3):SET(60,Y,3): 
NEXT 


FORY=10T014STEP2: 
SET (55, Y,8) :SET(55,Y,8): 
SET (57,Y,8): 

NEXT: 


SET(54,18,8):SET(54,19,8) :SET(54,20,8): 
SET (55,18,8) SET (55, 19,8) :SET (55, 20,8) 


FORX=34T050STEP2: 
SET(X,20,3): 
NEXT:RETURN 


FORX=0TDO10STEP2: 
SET(X,18,5): 

NEXT: 

FORY=-14T017: 
SET(3,Y,4): 

NEXT: 

SET(4,14,6):SET(5,14,6) 


FORY=19T030: 
SET(0, Y,3):SET(10,Y,3): 
NEXT 





ONLELKONMEN IM. 
JSCHER BBENTEUER UND SENAL 
ESCHLBORTEN. | 
SZUEL KBENIGE UND IHRE: 
TIGEN REICHE DIE 
WEBER HERRECHER 


LAND PHAHTAST 


VEIHENM ULRENZENDEN KUENIGPELONE 
"BER VILLEN ® : 
sERUSEHE SDEL 





-1510 Herstellung der Buchstabe für 
Buchstabe sich schreibenden Einleitung. 
Hintergrund rosa, vor dem Text läuft ein 
blauer Cursor, Absätze werden mit Ton 
beendet; die vollgeschriebene Seite war- 
tet auf Tastendruck, um die nächste zu 


beginnen. 


1600 Burg rechts, mit SET gezeichnet 


1620 Burg links, mit SET gezeichnet 


1700 Textstrings der Einleitung 


1622 


1624 


1550 


1700 


1701 


1702 


1705 


1705 


1706 


1707 


1708 


1709 


1710 


1711 


1712 


FORY=20T024STEP2: 
SET(3,Y,8):SET(5,Y,9: 
SET(7,Y,8): 

NEXT: 

SET(4,30,8):SET(5,28,8) : 

SET (5,29,8):SET (5,30,8) 


FORX=10T025STEP2: 
SET (X,30,3): 
NEXT: RETURN 


FORX=1T020: 
PRINTS480, ;:PRINT: 
GOSUB1700: 
SOUND220+X,1: 

NEXT: RETURN 


X$(1)=" WILLKOMMEN IM LAND PHANTASTI- 
SCHER ABENTEUER UND GEWALTIGER SCHLACHTEN. " 


X$(2)=" ES MESSEN HEUTE ZWEI KOENIGE 
UND IHRE MAECH- TIGEN REICHE DIE KRAEFTE*" 


X$(5)=" JEDER HERRSCHER BEGINNT MIT 

EINEM GLAENZENDEN KOENIGREICH, DER VOLLEN 
KRIEGSKASSE, VIELEN TAUSEND SDELDNERN, 500 
MOERSERN UND EINER BAUERNBEVOELKERUNG, DIE 
REKRUTIERT WERDEN KANN %*" 


X$(4)=" ZIEL DES KAMPFES IST DIE VER- NICH 

TUNG DES GEGNERS, INDEM MAN DIE TREFFERPUNKTE 
ZERSCHIESST, DIE ARMEE AUFREIBT, ODER DEN 

KOENIG SELBST TDETET x*" 


X$(5)=" DEN SIEG BRINGEN SCHLACHTEN, IN 
DIE MAN VORRUECKT, MOERSER- KANONADE ODER 
AUCH EINSATZ DES KATAPULTES - (FALLS MAN 
EINS HAT) - AUSSERDEM KANN MAN FUER 10,000 
DUKATEN SPIONE KAUFEN%#" 


X$(6)=" SIE VERUEBEN UNVERZUEGLICH AT- TEN 
TATE AUF DEN GEGNER -— ER FOLGREICH, WENN 
SIE DIE WAECH- TER UEBERWINDEN KDENNEN %" 


X$(7)=" JEDER SOELDNER ERHAELT REGEL- MAES 
SIG AM ZAHLTAG 2 DUKATEN — WENN DAS GELD 
FUER DEN NAECH- STEN SOLD ZU KNAPP WIRD, 
KANN MAN OHNE KOSTEN SOVIELE MAN WILL 
ENTLASSEN UND NACH HAUSE SCHICKEN %#" 


X$(8)=" ANGEHEUERTE BAUERN, WELCHE DIE VER 
LUSTE DER SCHLACHTEN ERSET- ZEN SOLLEN, 
KAEMPFEN BIS ZUM NAECHSTEN ZAHLTAG OHNE 
SOLD #" 


X$(9)=" VON DEN KRIEGERN, DIE AM ZAHL- TAG 
KEINEN SOLD ERHIELTEN, VER- HUNGERN EINIGE, 
ANDERE LAUFEN ZUM FEIND UEBER #" 


X$(10)=" ZERSCHOSSENE MOERSER KOENNEN NACH 
GEKAUFT WERDEN #" 


X$(11)=" UM DES SOHNES SIEG BESORGT, 
SCHICKEN DIE VAETER VON MAL ZU MAL GESCHENKE 
VON SOELDNERN, DUKATEN, MOERSERN, REPARATUR 
- COLONNEN, BAUERN, SPIONEN, KA- TAPULTEN 
ODER EINIGES DAVON %*" 


X$(12)=" ALLERDINGS SOLLTEN NATURKATA- 
STROPHEN AUCH BEACHTET WERDEN; DORKANE, FLUT 
UND PEST GEISSELN DIE MENSCHHEIT UND DEZI 
MIEREN DIE RESOURCEN ERHEBLICH %#" 
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1713 


1790 


1800 


2100 


2110 


kai eh 

hl 
re 
an 
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$(15)=" ### ERGREIFT DIE WAFFEN “is #4 
SCHLAGST DIE SCHLACHTEN ## " 


RETURN 


PLAY"T70V3101DFDFDOZDGAAGGDDO1DESAASGDD" : 
RETURN 


SOUND (ASC (A$) ) +120, 1:RETURN 
G0SUB435: GOSUB475: GOSUB&S70: RETURN 
G60SUBS05: GOSUBS7O: RETURN 
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Geschrieben in Applesoft-BASIC 


Dieses Programm ist ein typisches Beispiel für Abenteuerprogramme. 
Diese verlangen vom Benutzer Kombinationsgabe und Gedächtnis. Ohne 
ersteres geht es überhaupt nicht. Das Zweite kann durch ein Blatt Papier 
ersetzt werden. In einem Äbenteuerspiel bewegt man sich innerhalb eines 
geschlossenen Universums, dessen Gesetzmäßigkeiten man selbst her- 
ausfinden muß. Die Gesetzmäßigkeiten bestehen z.B. darin, daß man 
zum Betreten eines Gebäudes einen bestimmten Gegenstand bei sich 
tragen muß, oder daß man eine Information, die man zur Lösung des 
Abenteuers benötigt, erst dann erhält, wenn man einen Gegenstand an 
den Informanten weitergegeben hat. Abenteuerspiele sind in deutscher 
Sprache etwas schwerer zu programmieren als im Englischen, da sie 
üblicherweise mit sehr vielen Artikeln gebraucht wird. Der Befehl: »Open 
window!«, der im Englischen sprachlich gerade noch durchgeht, bewirkt 
in seiner Übersetzung ins Deutsche: »Öffne Fenster!« eine Gänsehaut bei 
jedem, der seine Muttesprache ein wenig liebt. 

Das Ziel des folgenden Spiels ist es, in einer Kleinstadt nach einem 
goldenen Hufeisen zu suchen, das sich irgendwo in dieser Stadt befindet. 
Bei der Suche nach diesem Hufeisen hat man außer mit seiner Ortsun- 
kenntnis noch mit dem Geist von Junker Rudolf zu kämpfen. Die Bewoh- 
ner des Ortes sind, durch frühere Sucher genertt, nicht allzu hilfsbereit. 
Auch gegen ihr Mißtrauen kann man sich nur durch List wehren. Überwa- 
chungsanlagen schützen ausgerechnet die Gegenstände, die man drin- 
gend benötigt. 

Abenteuerspiele lassen sich nur dann programmieren, wenn man sich 
vorher auf einem Blatt Papier die in dem Spiel vorkommenden Orte auf- 
zeichnet, dazu die Gegenstände, die sich an diesen Orten befinden, sowie 
die Verbindungswege zwischen diesen Orten. All diese Informationen 
werden zu Beginn des Programmes aus DATA-Zeilen in eine mehrdimen- 
sionale Tabelle eingelesen. 

Man spielt, indem man einer imaginären Person befiehlt, welche Aktio- 
nen sie am jeweiligen Ort durchführen soll. Diese Befehle müssen neben 
einem Imperativ (Befehlsform eines Verbs) ein Objekt enthalten. Das Pro- 
grammier-Problem besteht darin, diese beiden Teile in möglichst kurzer 
Zeit zu erkennen und auf ihre Ausführbarkeit zu prüfen. Ich habe dieses 
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Problem gelöst, indem ich Befehlsworte und Objekte gewählt habe, die 
sich in den ersten drei Buchstaben unterscheiden. Nur diese ersten drei 
Buchstaben werden geprüft. 

Nach dem vorliegenden Muster läßt sich jedes beliebige Abenteuerspiel 
programmieren. Man sollte allerdings mit den Gesetzen logischer Ver- 
knüpfungen vertraut sein, weil nur eine Verknüpfung von mehreren Bedin- 
gungen an bestimmten Orten eine Aktion zuläßt. Beispielsweise muß 
man, um eine Information zu bekommen, 1. an einem bestimmten Ort 
sein, und 2. im Besitz einer bestimmten Sache sein, und 3. etwas 
Bestimmtes sagen. 

In fast allen Abenteuerspielen ist eine Hilfsfunktion eingebaut. Gibt man 
als Befehl, das Wort HILFE ein, erhält man — abhängig vom Ort, an dem 
man sich befindet - mehr oder minder nützliche Ratschläge. Es bleibt der 
Phantasie des Programmierers überlassen, wie weit er den Benutzer des 
Programms unterstützt. Ich bevorzuge dumme Ratschläge. 

Das Programm wurde auf einem Apple Ile mit einer 80-Zeichenkarte 
geschrieben. Eine Umstellung auf den 40-Zeichen-Bildschirm und auf 
fehlende Umlaute wäre problemlos. (AW) 
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10-40 Anfangsroutinen. 1800 = Titel, 
1760 = Einleitung. Die Variablen in Zeile 40 
haben folgende Bedeutungen L$ = Orts- 
beschreibungen; A (4,30) = Ausgänge von 
diesen Orten; M$ (3,30) = sichtbare Ob- 
jekte, Beschreibung dieser Objekte, und 
genauere Beschreibung für das SIEH- 
Kommando; B (3,30) = Ort, an dem sich 
gas Objekt befindet, Information, ob es 
mitgenommen werden kann, und Schalter 
für Aktionen. MZ = 1: Das Labyrinth wurde 
noch nicht betreten. 


50 Einlesen der DATA-Zeilen 
60-150 Hauptroutine 


60 Ausgabe des Ortes, an dem man sich 
befindet; Ausgabe der sichtbaren Ob- 
jekte. 


70 Vergleich der Position (B) mit dem Ort 
der sichtbaren Objekte. Wenn beide iden- 
tisch sind, Ausgabe des Objektes; Setzen 
des Schalters C. 


80 Wenn C=Oist, gilt: kein sichtbares Ob- 
jekt an diesem Ort; Ausgabe der entspre- 
chenden Meldung. 


90-120 Abhängig von den Werten, die in 
Tabelle A stehen, werden die Richtungen 
ausgegeben, in dieman sich offensichtlich 
bewegen kann. 


130 Kann man sich nicht bewegen (C=0), 
werden drei Fragezeichen ausgegeben. 


150 Eingabe des Befehls in M$ 


160-175 Es gibt 4 Befehle, die nur aus 
der Angabe der Richtung bestehen kön- 
nen. Diese Befehle müssen in die richtige 
Syntax übersetzt werden. 


180 Bei dem Befehl SIEH werden die ge- 
samten Informationen ab Zeile 60 erneut 
ausgegeben. 


190 Wenn der Befehl weniger als drei 
Buchstaben hat, wird eine Fehlermeldung 
ausgegeben und in Zeile 60 zurückge- 
sprungen. 


200-210 In diesen Zeilen wird der Befehl 
in das Befehlswort und das Objekt ausein- 
andergenommen. Dabei kam mir die 
deutsche Sprache zur Hilfe. Bei normalen 


10 
40 
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GOSUR 1800: GOSUB 1760 
DIM L$(30),A(4,30),M$ (3,30) ,B{3,30)2MZ = i 


GDSUB 1150: GOSUB 2210:B = 1: HOME 


HOME = PRINT "DU BIST: ";zL$(B):C = Or: PRINT "DU B 
EMERKST: ";z FOR A = 1 TO 30 


IF Bi3,A) 


= 1 AND B(1,A) = B THEN PRINT TAB( 14) 
sms(2,A):C = 1 


NEXT A: IF C = © THEN PRINT "NICHTS VON INTERESSE 


90 C = O0: PRINT "RICHTUNGEN: ";: IF At1,B) < > © THEN 


100 
110 
120 


150 
130 


150 


160 
165 
170 
175 


190 


190 


200 


205 
210 


PRINT “NOR "s:C = 1 

IF At2,B3 < > 0 THEN PRINT "SUE "3:C 
IF A(Z3,B) < > 0 THEN PRINT "OST "3:C 
IF A(4,B) < > 0 THEN PRINT "WES "3:C 


I 
[3 


IF C = 0 THEN PRINT "7777"; 
PRINT 3 PRINT 


INPUT "UND NUN? ";M$: PRINT " " 


iF M$ = "N" THEN M$ = "GEHE NOR" 
IF M$ = “"S" THEN M$ = "GEHE SUE“ 
IF M$ = "0" THEN M$ = "GEHE 0ST" 
IF M$ = "W” THEN M$ = "GEHE WES" 
IF M$ = "SIE" OR M$ = "SIEH" THEN GOTO &0 


IF LEN (M$) < 3 THEN PRINT "?? WIE BITTE ??": GOTO 


150 

N$ = LEFTS (M$,39: FOR I = ( LEN (MS) - 2 TO 1 STEP 
- 1: IF MID$ (M$,1,1) = " " THEN GOTO 210 

NEXT I 

0O$ = MIDS (M$,I + 1,3): IF N$ = "INV® THEN GO0TO 

300 
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215 
220 


225 
230 
235 
240 


244 
245 


250 


255 


300 
310 
320 
3350 


340 
350 


370 


390 
400 
410 
420 


450 
340 


451 


452 
4535 


460 


470 
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iIF N$ "TDE" OR N$ = "TöT" THEN GO0TO 1060 

IF 0$ "STU" AND N$ < > "SCH" AND N$ < > "sıE" 
THEN PRINT "DEM STUDENDEN IST’S EGAL. ER LERNT 

EIFRIGST WEITER": GOTO 150 


IF N$ = "HIL” THEN G6GO0T0 350 

IF N$ = "GEH" OR N$ = "LAU" THEN GOTO 440 

IF N$ = "KAU" THEN GOTO 1030 

IF N$ = "SIE" GR N$ = "PRU" OR N$ = "PRÜ" OR N$ = 
"UNT" THEN 6010 550 

IF N$ = "STE" THEN GOTO 700 

IF N$ = "NIM" OR N$ = "HOL" OR N$ = "ST1" THEN GOTO 
705 

IF NS = "LEG" OR N$ = “LAS" OR N$ = "WIR" THEN 83 
Q 

IF N$ = "SAG" THEN GOTO 890 

IF N$ = "GIB* THEN GDOTD 870 

IF NS = "SET" OR NS = "SIT" THEN GOTDO 9970 

IF N$ = "DRU” OR N$ = "DRÜ" OR N$ = "BEW" ÖR N$ = 


"ZIE" THEN GO0T09 910 


IF N$ = "DEF" OR N$ = "Öff" THEN GOTO 980 

IF N$ = "ZAH" OR N$ = "TRI" THEN GOTO 1000 

IF N$ = "ZER" THEN GOTO 1070 

IF NS = "LIE" THEN GOTO 1090 

IF N$ = "SCH" THEN G0TO 1100 

IF N$ = "ISS" THEN GOTO 1010 

PRINT "DIESES VERB KENNE ICH NICHT !"; GOTO 150 


PRINT "DU TRAGST FOLGENDE SACHEN MIT DIR HERUM: " 


S = 0: FOR 1 = ı TO 30 


IF 8(1,1) = 30 THEN PRINT " ":M$(2,1):5 = 1 
NEXT I: IF S= O THEN PRINT "NUR DAS SCHWARZE UN 
TER DEINEN NÄAGELN? " 


GOTO 150 

IF B= 1 THEN PRINT "VERSUCH DOCH MAL BEFEHLE wi 

E HILFE, INVENTUR, SIEH, USW."z G0TO iSso 

IF B= 21 THEN PRINT "SCHÜTZE DICH VOR BöSEN GEI 
STERN!": GOTO 150 

IF B= 28 AND ZM = O THEN PRINT "EIN GEBER WAGT 
MEHR ALS EIN NEHMER'!*: GOTO 150 

IF B= 14 THEN PRINT "WAS DENN, SCHON MUDE??": GOTO 
150 

IF B = 253 THEN PRINT "PRÜFE DIE DINGE UM DICH HE 

RUM!": GOTO 150 

IF B= 26 THEN PRINT "EHRLICH WAÄHRT AM LÄNGSTEN! 
“2: GOTO 150 

IF B= 29 THEN PRINT "VIELLEICHT WÄRST DU DOCH B 

ESSER ZUHAUSE GEBLIEBEN?": GOTO 150 

iIFB=40RB = 7 THEN PRINT "STUDENTEN KOMMEN U 

MSONST HEREIN!" 60T0 150 

PRINT "ICH BIN AUCH NICHT KLÜGER!": G0TO 150 

IF 0% = "UNI" AND B = 23 THEN B = 25: GOTO 50 

IFB = 17 THEN GOTO 340 

IF 0% = "NOR" AND A(2,B) < >O AND (B< > 26 OR 
ES = 6 OR BE = 1) THEN B = A(1,B)z GOTD 50 

IF 0O$ = "NOR" AND B = 26 AND ES = 1 AND BE = O THEN 
HUME = VTAB 10: PRINT " DER KOCH SIEHT, WIE DU A 
US DER TÜRE RENNST, OHNE ZU ZAHLEN, WIRD SAUER UN 

D WIRFT DIR SEIN HACKBEIL NACH!": GOTO 1050 

IF 0$ = "NOR" AND At1,B) < > 0 THENB = Atl1,B): GOTO 
&0 


IF B= 17 THEN D& = "NONWSSSWNNO": IF MZ > O0 AND 
LEFT$ (Q$,1) = MID$ (D$,MZ,1) THEN MZ = M2 + 1 
IF MZ = 12 AND ZZ = O0 THEN ZZ = 1:B(1,29) = 17:B 


1,30) = 17: GOTD 60 


Befehlen steht das Verb am Beginn des 
Befehls und das Objekt am Schluß. Ich 
brauchte also nur M$ von links auf die er- 
ste Leerstelle zu prüfen, um das Verb da- 
vor zu erhalten, und dann von rechts nach 
der letzten Leerstelle zu suchen, um das 
Objekt zu erkennen. Das heißt, daß man 
dem Computer ohne weiteres sagen 
kann: »Öffne bitte das geschlossene Fen- 
sterl« und er macht daraus: »Öffne Fen- 
ster«. Mit diesem Befehl können die fol- 
genden Zeilen bearbeitet werden. 


215-288 Liste der dreibuchstabigen Ab- 
kürzungen der Befehlsworte und Ver- 
gleich, ob das eingegebene Befehlswort 
mit einem von diesen identisch ist. Bei 
Gleichheit Sprung zu einer Zeile, in der 
dieser Befehl verarbeitet werden kann. 


290 Wenn kein passendes Befehlswort 
gefunden wurde, wird zur Eingabe zu- 
rückverzweigt. 


300-330 Bei dem Befehl INVENTUR 
werden dem Spieler die Dinge ausgegs- 
ben, die er mit sich herumschleppt. Die 
Information, ob er sie trägt, ist in dem 
Ortstfeld (B(1,l)) enthalten. Wenn der Wert 
dieses Feldes 30 ist, befinden sie sich im 
Besitz des Spielers. 


340 Rücksprung zur Eingabe. 
350-430 Antworten auf den Befehl HIL- 


FE; abhängig vom Ort, an dem dieser Be- 
fehl gegeben wird. 


440-640 Aktionen auf den Befehl GEH. 


650-670 Aktionen auf die Befehle SIEH 
oder UNTERSUCHE oder PRÜFE. 


700 Aktion auf den Befehl STEHE. 


705-820 Aktionen auf die Befehle 
STIEHL oder NIMM oder HOLE. 


480 
490 


3500 
510 
520 


3350 


555 


540 


560 
570 


580 


585 


370 


600 


605 


620 
650 
640 
650 
655 
ss0 
670 
680 


890 
700 


750 


760 


770 


IF B= 17 AND ZZ = O THEN GOTO &0 


IF 0O$ = "SUE" AND At2,B) < > O0 THEN B = At2,B): GOTO 
&0 

IF O$ = "OST" AND AlZ,B) < > O0 THENB = A(Z,B): GOTO 
80 

IF 0%$ = "TIS" AND B = 26 THEN G0T0 990 

IF MZ = 12 AND (0$ = "NOR" OR 0$ = "WES" OR 08 = 
"SUE" OR 0% = "0ST") THEN MZ = 0:B(1,29 = 0:B(1, 

30) = O0: G60T0 60 

IF MZ = 12 AND 0$ = "PFA" THEN PRINT "DU HAST DA 

S LABYRINTH VERLASSEN UND NIMMST EINEN BUS NACH H 
AUSE.“: FOR I = 1 TO 1000: NEXT : IF B(1,29) = 30 


THEN HOME = PRINT "HERZLICHEN GLÜCKWUNSCH!": PRINT 
"DU HAST DAS ABENTEUER BESTANDEN!": END 

IF MZ = 12 AND 0$ = "PFA" THEN PRINT "SCHADE! DU 
HAST DAS ABENTEUER ZWAR ÜBERLEBT, ABER DEN SCHAT 

Z NICHT GEFUNDEN!": END 

IF 0$ = "WES" AND At4,B) < > 0 THEN B = At4,B): GOTO 
560 


IF O$ = "BET" THEN PRINT "NA BRAVO!": PRINT "DAS 
BETT BRIEHT ZUSAMMEN UND GFFNET EINEN GEHEIM 
GANG!":M$ (2,28) = "TRUÜMMER EINES BETTES":A(1,14) = 

165: FÜR I = 1 TU 1000: NEXT : GDOTO 50 
IF O$ = "RES" AND B = 6 THEN B = 26: GOTO 50 
IF 0O$ = "MAU" AND B = 24 THEN HOME =: PRINT : PRINT 


"DU BIST; IM PALASTGARTEN": PRINT "DU SIEHST: EIN 

BLUMENMEER": FOR I = 1 TO 1000: NEXT : PRINT "UN 
D EINEN WÄCHTER, DER BRULLT: "HALTET DEN DIEB!’ U 
ND DICH ERSCHIESST!": GOTO 1050 


IF O$ = "HAN" AND B = 4 AND B(1,4) = 50 THEN B = 
5: GDTO 680 
IF Os = "HAN" AND B = 4 THEN PRINT "DIE AUFPASSE 


RIN SAGT ZU DIR: ’KEIN EINTRITT OHNE AUSWEIS'?’": GOTO 
150 


IF (0$ = "TRö" OR 0$ = "TRO") AND B= 9 THENB = 

29: GOTO 80 

IF O$ = "RAT" AND B = 7 AND B{1,4) = 30 THEN B = 

18: GOTO &0 

IF 0% = "RAT" AND B = 7 THEN PRINT "OHNE AUSWEIS 
KOMMST DU HIER NICHT ”’REIN!"z GOTO 150 

IF 0%$ = "TOR" AND B(1,15) = 12 THEN B = 153: GOTO 

60 

IF 0$ = "GRU" AND B = 21 AND B(1,8) = 21 THEN B = 


27: GOTO 60 

IF 0% = "BIB“ THEN B = 15: GOTO &0 

PRINT "DAS GEHT LEIDER NICHT!": GOTO 150 

FOR I = 1 TO 30: IF O$ = M$(1,D) THEN GOTO 670 
NEXT I 

PRINT "WELCHES DING??": 60T0 150 

IF Bi1l,I) < > BAND B(1,I) < > 30 THEN PRINT " 
DAS IST VIELLEICHT WOANDERS!": GOTO 150 

IF M$(3,1I) = "Z" THEN PRINT "NICHTS BESONDERES Z 
U ENTDECKEN!" GOTO 150 

PRINT M$(3,1): GOTO 150 


iIFO$ = "AUF" AND B = 26 AND A(1,26) = O THEN All 
26) = &: PRINT "IN ORDNUNG!": FOR I = 1 TO 500: NEXT 
I: G0T0 80 


FÜR I = 1 TO 30: IF 0$ = M$(1,I) THEN GOTOD 720 
NEXT I: GUTD 6650 

IF B(1,1I) = 50 THEN PRINT "SCHAU MAL IN DEINEN T 
ASCHEN NACH! DU HAST DAS SCHON!": GOTO 150 

IF Bi1l,I) < > BTHEN PRINT "DAS IST NICHT HIER! 
"=: G60TO 150 

IF O%$ = "GEW" AND B = 5 THEN HOME : VTAB 12: PRINT 
"DER WÄRTER SCHREIT LOS, DIE TÜR GEHT AUF, UND EI 
N POLIZIST ERSCHIESST DICH!": GOTD 1050 

IF B{2,1I) = 0 THEN PRINT "DAS GEHT NICHT!": GOTO 
150 


S = 0: FOR J = 1 TOD 30: IF B(1,J) = 50 THENS =5 + 


1 
NEXT J 


49 


780 


7909 


800 


805 


810 
820 
830 
840 
850 


850 
870 


880 
9970 


900 
910 


9720 


925 


97530 
740 
950 
350 
970 


9780 


985 


990 


9975 


796 


1010 


1020 
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IF 0% = "STE" AND B = 21 AND B(1,2) = 21 AND Bit, 
20) = 30 THEN B{1,8) = 21: PRINT "DER GEIST VON J 
UNKER RUDOLF ERSCHEINT, WIRD ABER VON DEINEM KREU 
Z GEBANNT!":B(1,1 = 30:B(3,1) = ir: FOR J = 1 TO 
1000: NEXT Js: GOTD 50 

IF 0% = "STE" AND B = 21 AND Bt(1,2) = 21 THEN PRINT 
“DER GEIST VON JUNKER RUDOLF ERSCHEINT UND ERSCHR 
ECKT DICH ZU TODE!": GOTO 1050 

IF 0$ = "KRE" AND (B(1,21) < 29 OR BC = 0) THEN NM 
%(2,20) = "SILBERNES KREUZ": IF TD = 0 THEN PRINT 
“DIE BEDIENUNG RUFT DIE POLIZEI. DIE KOMMT UND ER 
SCHIESST DICH!": GOTO 1050 

IF O$ = "KRE" AND (Bt1,21) < 29 OR BC = 0) THEN M 


$(2,20) = "SILBERNES KREUZ": PRINT "AUF FRISCHER 
TAT ERTAPPT!! EIN POLIZIST STÜRZT HEREIN UND ERSC 
HIESST DICH! '": GOTO 1050 


PRINT "IN ORDNUNG. DU HAST ES'!'":B(1,D) = 50:Bt3,1 
I) =1 

SOTO 150 

FOR I = 1 TO 30: IF 0$ = M$(1,I) THEN GENTOO 850 
NEXT I: GOTO 560 

IF B{l,I) < > 30 THEN PPINT "DAS BESITZT DU NIC 
HT!": GOTO 150 

PRINT "SCHEN GESCHEHEN: ":B(1,1) = B: GOTO 150 

IF B= 28 AND D& = "BUC" AND ZM = O AND B(1,20) = 
50 THEN ZM = 1: PRINT "DER ORGANIST DANKT DIR UND 
GIBT DIR ETWAS. ":Bt1,11) = 30:B(1,10) = O0: GOTO 
150 

G0TO 830 

IF (08 = "HIL" OR 08 = "GUT") AND B = 28 AND ZM = 
O THEN PRINT "DER ORGANIST SAGT: ICH WÜNSCHE, IC 
H HÄTTE MEINE NOTEN. ’"=: GOTO 150 

PRINT "NA GUT, NICHTS GESCHIEHT...": GOTO 150 

ir 0O%$ = "STE" AND B = 21 AND B{1,2) = 21 AND Bii, 
20) = 30 THEN B(1,8) = 21: PRINT "DER GEIST VON J 
UNKER RUDOLF ERSCHEINT, WIRD ABER DURCH DEIN KREU 
Z GEBANNT!*: FOR J = 1 TO 1000: NEXT : GOTD &0 

IF 0$ = "STE" AND B = 21 AND B(1,2) = 21 THEN PRINT 
"DER GEIST VON JUNKER RUDOLF ERSCHEINT UND ERSCHR 
ECKT DICH ZU TODE!": GOTO 1050 


IF 0% = "THR" AND B = 13 AND CH = O THEN EH = 1: PRINT 


"DIE OSTWAND VERSINKT UND GIBT DEN BLICK AUF EINE 
HALLE IM OSTFLUGEL FREI'"z:A(3,15) = 14: FOR J = 
i TD 10090: NEXT : GOTO 50 

PRINT "ES GESCHIEHT MAL WIEDER GAR NICHTS!": 60T0 
150 

FOR I = 1 TO 30: IF 0$ = Mst1,1I} THEN GOTOI 940 

NEXT I: GDTO 540 

IF B{t1,I) < > BTHEN PRINT "DAS IST NICHT HIER! 
”": G5OTD 150 

PRINT "NA GUT...ES GESCHIEHT GAR NICHTS. ": GOTO i 

50 

IF 0% = "TOR" AND B{1,11) = 30 AND OT 
= 1: PRINT "SCHON PASSIERT.":B(1,12) 
= i2: FOR I = 1 TO 1000: NEXT : G60T0 40 


0 THEN OT 
0:B(1,13) 


NH 


IF 0% = "TOR* AND Bt1,11) = 30 THEN PRINT "ES IS 
T SCHON OFFEN." GOTO 150 
IF ES = OO AND (0O$ = "TIS" OR 0$ = "STU") AND B = 


26 THEN PRINT "DER KELLNER SERVIERT DIR DAS MENU 
E.":B(1,17) = 26:ES = i:Al1,26) = 0: FOR I = 1 TO 
1000: NEXT = GOTO 60 

IF ES = O THEN PRINT "DAS GEHT NICHT'": GOTO 150 


PRINT "IN ORDNUNG. ": G0TD 150 
IF (0$ = "KEL" OR 0$ = "MEN”) AND B = 26& AND ES 
1 THEN PRINT "DER KELLNER GIBT DIR EIN MARKSTUCK 
ZURÜCK UND MEINT HERABLASSEND: ’DAFUÜR KÖNNEN SIE 
SICH NOCH EINE LANDKARTE IN DER BIBLIOTHEK KAUFE 


N.’":B(1,19) = 30:B(1,198) = O:BE = 1 


IF (0% = "MEN" OR D$ = "MAH”") AND ES = i THEN PRINT 
"GENAU DAS WAR’S!":Bt1,17) = O: GOTDO 150 
PRINT "DAS GEHT NICHT'!": GOTO 150 


830-880 Aktionen auf den Befehl GIB. 


890-970 Aktionen auf den Befehl BE- 
WEGE. 


980-990 Aktion auf den Befehl ÖFFNE. 


1000 Aktionen auf den Befehl ZAHLE. 


1010-1020 Aktion auf den Befehl ISS. 


1030-1040 Aktionen auf den Befehl 
KAUFE. 


1050-1055 Wie unangenehm! Das Spiel 
hat mit Ihrem Ableben ein plötzliches Ende 
gefunden. 


1060-1080 Aktionen auf den Befehl 
ZERBRICH. 


1090 Aktion auf den Befehl LIES. 


1100-1125 Aktionen auf die Befehle 
SCHIESS oder TÖTE. 


1130-1750 DATA-Zeilen. Aufbau siehe 
Zeile 40. A(1,l} = Ausgang Richtung Nor- 
den; A(2,l} = Ausgang Richtung Süden; 
A(3,l} = Ausgang Richtung Osten; A(d4,l) = 
Ausgang Richtung Westen. 


1050 


1033 


i040 
1050 


1055 
1050 
1070 


1080 
10970 


1100 
1105 
1110 


1120 


1125 
11350 


+ 11430 
2 1150 
7 1160 
4 1170 
r1180 
61190 
> 1200 
€ 1210 
“, 1220 
1 A230 
‚Pr 24O 
12509 
!! 1260 

1270 
7,1280 

1290 
ı 5 1300 

1310 
741320 


f 


2 0 1330 
29713540 
271350 
21360 
1370 
1580 
13590 
1400 
1410 
291420 
»n1430 
14330 


1450 


2 1460 


1470 


iy 


7 1480 
1490 


IF (0O$ = "KAR" OR 0$ = "LAN") AND B(1,19) = 30° THEN 
PRINT "DER VERKÄUFER NIMMT DEIN MARKSTÜCK UND GI 
BT DIR EINE KARTE.":B(1,26) = 30:B(1,19) = O: G0T0 
150 

IF (0$ = "KAR" OR 0$ = "LAN") AND B{i1,18) = 30 THEN 
PRINT "DER VERKÄUFER KANN DEINEN FÜNF Z IGMARKSCHE 

IN NICHT WECHSELN.": G0TO 150 

PRINT "LEIDER NICHT ZU VERKAUFEN!"s GDTO 150 

FOR I = 1 TO 2000: NEXT = INVERSE : HOME : VTAB 

12: PRINT " DU BIST TOT '!"z: VTAB 
24: INPUT "NOCH EIN VERSUCH? "sE$: IF E$ = "JA" THEN 
NORMAL : RUN 

NORMAL : HOME =: END 

PRINT "WIE ???7?"s: GOTO 150 

IF D0$ = "KAM" AND (B(1,20) = 30 OR Bt1,20) = B) THEN 
PRINT "DAS WAR LEICHT: ":M$(2,21) = "ZERBROCHENE 
KAMERA":BC = 1: GOTO 150 

PRINT "DAS IST LEIDER NICHT MößLICH!": GOTO 150 
PRINT "BENUTZE "SIEH’, UM ETWAS ZU LESEN.": 60T0 
150 

IF B(1,5) = 30 OR Bt1,5) = B THEN GOTO 1110 

PRINT "DU HAST NICHTS ZUM SCHIESSEN!" G0OTO 150 

IF 0% = "STU* AND B = 23 AND Bt(1,3) = 23 THEN B( 
1,3) = O:B(1,4) = 23: PRINT "DAS HAT IHN AUFGESCH 
RECKT. ER SIEHT AUF SEINE UHR UND RUFT: ’ICH BIN 
VIEL ZU SPÄT DRAN.’ WÄHREND ER WEGLAUFT, VERLI 
ERT ER ETWAS."=: GOTO 150 

PRINT "KEINER HAT’S GEMERKT": IF 0$ = "DAM" AND 
TD = 0 THEN TD = 1:M&(2,22) = "TOTE" + LEFTS$ (M$ 
{2,22),15) 2 
GOTO 150  - - / 
FOR I = 1 TO 30: READ L$(1): FOR J = 1 TO 4: READ n\ kö 
A(J, I): NEXT J: NEXT I 

DATA AUF DER GRAF-WILHELM-STRASSE,10,0,2,19 4 DT 78 
DATA AUF DER GRAF-WILHELM-STRASSE, 0,3,4,1 

DATA IM GEFÄNGNIS,2,0,0,0 

DATA AUF DER GRAF-WILHELNM-STRASSE,0,0,6,2 

DATA IN DER MUSIKALIENHANDLUNG, 4,0,0,0 

DATA AUF DER GRAF-WILHELM-STRASSE,8,0,7,4 

DATA VORM RATHAUS,0,0,0,6 

DATA AUF EINEM SCHMALEN PFAD,9,5,0,0 

DATA VOR EINEM TRÖDELLADEN,0,8,0,11 

DATA AUF DEM RASEN VORM PALAST,12,1,0,0 

DATA IN EINER SEITENGASSE,0,0,9,12 

DATA VORM PALAST DES GRAFEN,0,10,11,24 

DATA IN BER HALLE,0,12,0,0 

DATA IN EINER SCHLAFKAMMER,0,0,0,13 

DATA IN DER BIBLIOTHEK, 0,22,0,0 

DATA IN EINEM GEHEIMGANG, 17,14,0,0 

DATA IM LABYRITH, 17,17,17,17 

DATA IM RATHAUS,0,0,0,7 

DATA AUF DER GRAF-WILHELM-STRASSE, 20,0,1,22 

DATA VOR EINER KIRCHE,0,19,0,21 

DATA AUF EINEM FRIEDHOF,0,0,20,0 

DATA AUF DER GRAF-WILHELM-STRASSE,0,0,19,23 

DATA VOR DER UNIVERSITAT,O,0,22,0 

DATA AN DER PALASTMAUER,0,0,12,0 

DATA IN DER UNIVERSITAT,0,0,23,0 

DATA IM RESTAURANT ”ZUR SCHMIEDE’,„6,0,0,0 

DATA IN EINER GRUFT,0,21,28,0 

DATA IN DER KAPELLE,0,0,0,27 

DATA IN EINEM TRÖDELLADEN,O,9,0,0 

DATA „0,0,0,0 

FOR I = 1 TO 30: FOR J = 1 T0 3: READ M$(J,I): NEXT 
Js FOR J = 1 TO 3: READ B(J,I): NEXT Jı NEXT I 


DATA MUS, DUÜSTERE ORGELMUSIK,ANSCHEINEND KOMMT SI 
E AUS DEM INNERN DER KIRCHE, 20,0,1 

DATA STE,EINEN GRABSTEIN, "EINE INSCHRIFT:KÖNIGIN 
ANNE WURDE AUSGEGRABEN, UM ETWAS EINZUGRABEN" ‚21 
it 
DATA 
23,0,1 
DATA AUS,EINEN STUDENTENAUSWEIS, 2Z,0,1,1 

DATA KAN,EINE KANONE,SIE SCHEINT GELADEN ZU SEIN 


STU,EINEN STUDENTEN,ER STUDIERT FLEISSIG, 


91 


1500 


1510 
1520 


1530 


1540 


1550 


1555 


1560 
1570 


1580 


‚ 1600 


" 1510 


77 


1620 
1830 
1840 
1850 
1660 
1870 
1580 


1690 


6 1700 


1710 


? 4 720 


1730 


‚1740 


1750 
1760 


1770 


1780 


1790 


1800 


1810 
1820 
1850 
1850 


52 


DATA RES,EIN RESTAURANT ZUR SCHMIEDE’,„"EIN SCH 
ILD: HIER ISST DER CHEF PERSÖNLICH! ",6,0,1 

DATA HAN, "EINE MUSIKALTENHANDLUNG", Z,4,0,1 

DATA GRU, "EINE OFFENE GRUFT"," STUFEN, DIE NACH 

UNTEN FÜHREN", 0,0,1 

DATA ORG,EINEN ORGANISTEN,ER SPIELT DIE DUSTERE 
ORGELMUSIK, 28,0, 1 

DATA BUC,EIN BUCH ÜBER ORGELMUSIK, "EINE WIDMUNG: 

DIESES ABENTEUER HAST DU DIR SELBST ZU VERDANKEN 
”‚5,1,1 

DATA BUN,EINEN SCHLUSSELBUND, Z,0,1,1 

DATA TOR,DAS HAUPTTOR,ES GIBT EIN SCHLÜSSELLOCH, 
12,0, 1 

DATA TOR,EIN OFFENES TOR,2Z,0,0,1 

DATA TAF,EINE TAFEL,"EINE AUFSCHRIFT: WEGEN REND 
VIERUNG GESCHLOSSEN! ",12,0,1 

DATA TIS,EINEN TISCH, 2,26,0,1 

DATA KEL,EINEN KELLNER,ER SCHEINT DICH GERN BEDI 
ENEN ZU WOLLEN, 26,0,1 

DATA MEN,EIN MENUE,ES SIEHT AUSGESPROCHEN LECKER 

AUS,O,1,1 

DATA FÜN,EINEN FÜNFZIGMARKSCHEIN, 2,30,1,1 

DATA MAR,EIN MARKSTUCK, Z,0,1,1 

DATA KRE,MIESE IMITATIONEN VON SILBERKREUZEN, "AU 
F DEM SCHILD DARÜBER STEHT: DIESER LADEN WIRD DAU 
ERND ÜBERWACHT !",29,1,1 

DATA KAM,EINE FERNSEHKAMERA,AUF EINEM AUFKLEBER 

STEHT ’MADE IN HONKONG’ „29,0,1 

DATA DAM, "EINE KLEINE ALTE DAME, DIE AUF DEN LAD 
EN ACHTET","SIE IST HASSLICH WIE DIE NACHT.",29,0 

1 
’ 

DATA THR,DER THRON DER GRÄFIN ANNE,Z,13,0,1 

DATA GEW,ALLE ARTEN VON GEWEHREN, SIE SIND DURCH 
EINE ALARMANLAGE GESICHERT. ,3,0,1 

DATA BIB,DIE STÄDTISCHE BIBLIOTHEK, Z,22,0,1 

DATA KAR,EINE KARTE DES LABYRINTHS, "DARAUF STEHT 
: DER WEG INS ZENTRUM IST:N,O,N,W,S,S,5,W,N,N,D", 
04141 

DATA PLA,EIN PLAKAT, "DARAUF STEHT: LANDKARTEN HI 
ER!",15,0,1 

DATA BET,EIN WEICHES BETT,Z,14,0,1 

DATA HUF,"8222% DAS GOLDENE HUFEISEN 334%", 7,0,1 

1 
3, 

DATA PFA,EINEN TRAMPELPFAD,ER FÜHRT VOM PALAST W 
EG,0,0,1 

RETURN 

HOME = PRINT : PRINT * DER GE 
IST IM SCHLOSS": PRINT ; PRINT : PRINT " DU BIST 

GERADE IN KRUNSTEDT ANGEKOMMEN, UM MIT DEINES CO 
MPUTERS HILFE DAS BERÜHMTE 8# GOLDENE H 
UFEISEN #% ZU FINDEN, DAS JUNKER RUDOL 

PRINT " VOR 500 JAHREN HIER VERLOREN HAT. ES SO 
LL SICH IRGENDWO IN DER STADT BEFINDEN 
- DA DU NICHT DER EINZIGE BIST, DER DAS HUFEISEN 
SUCHT ODER GESUCHT HAT, IST DIE POLIZ 
EI ZIEMLICH SCHARF. AUF DER ANDEREN SEITE" 

PRINT " IST DIE BEVÖLKERUNG AN SCHIESSEREIEN GE 
WGHNT. DU KANNST KAUM MIT UNTERSTÜ 
TZUNG RECHNEN. 

VIEL GLÜCK BEI DEINER S 
UCHE. ABER VORSICHT! JUNKER RUDOLF SUCHT 
PRINT " SCHON SEIT 500 JAHREN!": RETURN 


VTAB 24: FOR I = 1 TO 150: PRINT "DER GEIST IM S 


CHLOSS! "3: NEXT : VTAB 13: HTAB 33: INVERSE = PRINT 


"DER GEIST IM SCHLOSS!"®; 
VTAB 24: PRINT : PRINT "ANLEITUNG ? J/N"; > NORMAL 


GET A$: IF A$ = "N" THEN RETURN 
IF AS < > "3" THEN 1820 
HOME =: PRINT : PRINT " DER GEIS 


T IM SCHLOSS": PRINT : PRINT 
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Geschrieben in CBM-BASIC für Commodore 64 


»Trucking U.S.A.« ist mein bisher längstes Programm. Es läuft mit über 
900 Zeilen und verbraucht fast allen verfügbaren Platz dieses Computers. 
Der übriggebliebene Platz reichte nicht einmal für Country- und Western- 
Musik aus dem LKW-Radio während der Fahrt — nur eine längere Titelme- 
lodie ist entstanden: / walk the line (von Johnny Cash in dem Film Der 
Sheriff mit Gregory Peck). Für diese Musik habe ich Teile eines einfachen 
Synthesizerprogramms verwendet (15220). Buchstaben repräsentieren 
Töne und die Funktionstasten Klangfarbe sowie Oktavenhöhe. Damit ist 
es einfach, eine komplette Melodie in Form von Buchstaben und Funk- 
tionstastenbefehlen in einen String zu füttern (I walk the line 16100). Das- 
selbe Programm erzeugt den Krach bei der Unfallroutine (16120). Weiter 
erzeugt eine der 3 Stimmöglichkeiten des Computers das je nach 
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Geschwindigkeit höher oder tiefer klingende Motorgeräusch und den 
Leerlauf (16300; die Tonhöhe ist eine Funktion von SP, der Geschwindig- 
keitsvariablen) — ein Geräusch, das ständig vorhanden sein kann, auch 
wenn andere Töne auftauchen, die mit einer abweichenden Stimme 
erzeugt werden, wie z.B. die Polizeisirene (16200; an dieser FOR-NEXT- 
Schleife habe ich sicher 5 Stunden gebastelt, um den richtigen Tonfall der 
Sirene zu erzeugen. Solch eine Routine mit 1. dem grundlegenden Einfall 
für den Befehlsablauf, und 2. dann auch der optimalen Formatierung 
gehört zu den Höhepunkten befriedigenden Programmierens). 


Bei sich wiederholenden Tonfolgen, wie der Polizeisirene oder dem 
Sturmgeräusch habe ich die Tastenabfrage — ob das Spiel weitergehen 
soll — in die Geräuschroutine integriert (16215). 

Das Programmieren hat mir richtigen Spaß gemacht. Da ich auch hier 
nur auf der Textseite arbeite, konnten die beim CBM 64 oft mühsamen 
POKE-Befehle zum Zeichnen, die hier die einfachen DRAW-, PAINT-, 
COLOR- und LINE-Befehle des Microsoft ersetzen, meine Programmier- 
lust nicht trüben. 

Andererseits ist ja beim CBM-BASIC des 64er die Auswahl der im 
Textmodus verfügbaren Sonderzeichen, Schriftfarben und auch Schrift- 
hintergrundfarben (z. B. im Reversmodus) so groß, daß kaum ein Zeichen- 
wunsch unerfüllt bleibt. Sehr hilfreich war der Editiermodus: Nicht nur 
Verbesserung und Erweiterung einer Zeile ist mit dem »frei« beweglichen 
Cursor viel weniger umständlich als beim DRAGON 32. Auch das wieder- 
holte Zeichnen gleicher Gegenstände — hier etwa der verschiedenen 
Reklameschilder oder der Tankstellen — ist durch einfaches Überschrei- 
ben der Zeilennummern mit neuen Zeilennummern leicht gelöst. Bleibt nur 
die Änderung von Farben und Symbolen (z.B. die Tankstellen 1700 und 
1730). 

Nicht zuletzt sei eine der interessantesten Routinen dieses Programms 
erwähnt; Andreas Werminghoff hat sie entwickelt - und ohne sie wäre das 
Programm nicht zustande gekommen (vielleicht wäre mir Ähnliches ein- 
gefallen — aus nackter Not —, aber kaum so wirksam-kurz). Ich spreche 
von der Routine, die den PRINT $-Befehl ersetzt. Das flüssige Formatieren 
des Bildschirms ist nur mit einer Routine möglich, die, vom O-Punkt links 
oben ausgehend, das Bild in einzelne, mit dem PRINT-Befehl erreichbare 
Felder aufteilt. Alles andere läuft immer wieder auf den unmöglichen Ver- 
such hinaus, den Cursor mit CURSOR-Steuerbefehlen (UP, LEFT, RIGHT, 
DOWN, HOME) auf dem Bildschirm passend für die nächste PRINT-Aus- 
gabe zu plazieren. Unmöglich deshalb, weil der Cursor z.B. beim Aufruf 
eines Unterprogramms von verschiedenen Stellen aus immer an einer 
anderen Stelle ankommt. Zur Print@-Routine: 21 A$ wird mit 40 Cursor- 
RIGHT gefüllt, 22 B$ mit 25 Cursor-DOWN,; jetzt wird im Programmablauf 
z.B. in 3 die PRINT-Feldervariable A mit einem Wert, dann im Unterpro- 
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gramm 5 bis 6 C$ mit Cursor-HOME und der errechneten Position gefüllt, 
und die Cursorposition ausgedruckt. 

Schon die ganzen, der Wirklichkeit entsprechenden Positionen dieses 
Simulationsprogramms lassen eine höchst lebendige und interessante 
Spielsituation entstehen: die Straßennummern, Städte, Staaten, Entfer- 
nungen, Dieselverbrauch, Geschwindigkeitsbegrenzungen, Reifenver- 
schleiß (geringere Ausfälle bei Neureifen), Wetterbedingungen (z.B. 
Schneefall nicht in Texas), erhöhtes Unfallrisiko bei steigender Erschöp- 
fung, der man nur mit Ruhe und Schlaf begegnen kann, Frachtrisiko (Ver- 
derben der Orangenladung bei Ausfall der Kühlanlage), steigende Strafen 
bei wiederholtem Schnellfahren (bis zu Gefängnis und Führerscheinent- 
zug), Frachtwaagen an Staatsgrenzen, drei verschiedene Möglichkeiten, 
nach New York zu kommen (die Nordroute ist wohl kürzer, dafür aber 
auch etwas gefährlicher wegen ihres schlechten Wetters und — weil dich- 
ter besiedelt — der häufigeren Polizeikontrollen, die auch genauer auf 
Einhaltung des Limits achten; in Texas dagegen kann man zwarrisikoloser 
und schneller fahren — dafür ist der Weg einige 410 Meilen länger) usw. 

Richtig aufregend wird die Geschichte aber, wenn man als Transport- 
gut Whiskey wählt. Sowohl FBi als auch die MAFIA verfolgen den LKW 
und wollen an die Ladung. Es entstehen spannende Situationen, wenn 
z.B. der MAFIA-Lincoln zum Überholen ansetzt, man aber wegen der 
Polizeikontrollen nicht schneller fahren will, Um nicht die ganze Ladung zu 
verlieren, muß man dann doch auf's Gas treten. Falls die Polizei einen 
erwischt, kann man sie mit einem Drittel der Ladung bestechen (2408). 
Ähnlich schlimm ist die Situation, wenn man dringend tanken muß, doch 
der »Blocker« einem funkt, daß an der nächsten Tankstelle das FBlwartet, 
um die ganze Ladung zu konfiszieren. Geht einem dann der Diesel aus, 
muß man an Helfer, die den Wert der Ladung kennen, 10000 $ für einFaß 
zahlen (2515). Kommt man aber durch, winkt allerdings ein Frachtgewinn 
von über 60000. — US $. (CS) 


Eine Bemerkung noch zu den Commodore-Listings. Sie werden sich 
wahrscheinlich wundern, daß die üblichen Steuerzeichen nicht im Listing 
auftauchen. Da wir für die Listings unseren Epson-Drucker benutzen woll- 
ten, auf diesem aber kein CBM-Zeichensatz zur Verfügung steht, mußten 
wir sämtliche Steuerzeichen »übersetzen«. Als ich damit fertig war (die 
Idee stammt aus einer amerikanischen Zeitung), waren die Listings nicht 
nur optisch schöner, sondern auch wesentlich leichter abzutippen. Sie 
kennen ja die Raterei, die entsteht, wenn man nach einem Graphikzeichen 
sucht. (Welcher waagerechte Strich ist gemeint? Der unter dem »*« oder 
dem »E« oder dem »R« oder dem »C« oder...) Stattdessen erhalten Sie 
nun in geschweiften Klammern genau die Tastenkombination angegeben, 
die sie drücken müssen, um das gewünschte Graphikzeichen zu er- 
zeugen. 


o/ 


C=R gibt an, daß die Commodore-Taste und R gedrückt werden 
muß. 

S=R bedeutet, daß SHIFT und R verlangt sind. 

CU=RE Cursor nach rechts 


Wenn die Tasten beschriftet sind, habe ich diese Bezeichnung beibehal- 
ten (HOME, CLEAR für CLR, INST usw.). 

Trotz all dieser Mühen sind immer noch zwei mißverständliche Zeichen 
im Listing. Der Unterstrich (_) steht für den Pfeil nach links und der Schräg- 
strich nach Links (\) für das Pfundzeichen (£). 

Am besten wäre es, wenn Sie sich diese beiden Unterschiede kurz 
herausschreiben und diesen Zettel beim Abtippen der Programme als 
Lesezeichen benützen. (AW) 
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1 Ich habe versucht, die häufigsten Un- 
terroutinen im Programm soweit vorne wie 
möglich unterzubringen, da bei jedem 
Aufruf einer Routine das Programm von 
vorne an nach der Zeilennummer abge- 
sucht wird. (Auf diese Weise wird das Su- 
chen verkürzt — einen nennenswerten 
Zeitgewinn konnte ich jedoch nicht fest- 
stellen.) 


3, 4, 10, 11, 12, 13 Kleine Löschroutinen 
verschiedener Größe, die Text löschen, 
ohne den Bildaufbau zu zerstören. 


5-6 Unterprogramm zum Ersatz des 
PRINT@-Befehls. B = Errechnung der An- 
zahl der Cursor-DOWN Bewegungen, A= 
Cursor-RIGHT Bewegungen, C$ = String 
mit Cursor-HOME, Cursor-DOWN und 
Cursor-RIGHT-Befehlen bis zur richtigen 
Position. 


8-9 Formatierung der Zahlenangaben für 
die Armaturen wie Tank, Meilenzähler, Ta- 
chometer usw. Die Zahl wird in einen 
String umgewandelt, die Leerstelle vorne 
abgeschnitten, Addition von Nullen links, 
Kürzung auf drei oder fünf Stellen. 


14 POKE für Rand- und Grundfarbe blau. 


16 Ab Zeile 15220 wird das Synthesizer- 
programm eingerichtet. 


21-22 Strings für die PRINT@-Routine: 
A$ enthält 40 » Cursor-RIGHT, B$ 25 » 
Cursor-DOWN. 


23 Ab 12000 wird der Haupttitel gezeich- 
net (s. S. 55). Es ist oft nicht so einfach, 
eine große Schrift aus Zeichen herzustel- 
len, ohne daß ein oder mehrere Buchsta- 
ben holprig wirken. Dieser Versuch 
scheint mir einigermaßen gelungen. 


30 16100 spielt die Titelmelodie / walk the 
line. 


32-33 Hier werden zwei Musik- oder Ge- 
räuschstimmen eingerichtet. Si für das 
Motorengeräusch, SI für die anderen. 


37 Es entsteht die schneller zu verarbei- 
tende Kurzfassung von CHR-Strings. 


40 Empfohlene Verarbeitungsweise der 
Zufallsfunktion, wobei X die gewünschte 
Größenordnung bedeutet. 
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G60T0 14 


60T0 12 

A=120:60SUB 5:FOR I=1 TO 13:PRINT BL$; :NEXT:RETURN 
A=200: 605SUB 5:FOR I=1 TO 9:PRINT B3$; :NEXT:RETURN 
B=INT (A/40) sC=A- (INT (A/40) ) #40 

C$=" {HOME}"+MID$S (A$, 1,C)+MID$(B$,1,B) PRINT C$; »RETURN 
G0T0 10 

I$=STR$(I%) s ISLEN (I$) » I$=RIGHT$ (I$, I-1) : 1[$="000"+I$ 


» I$=RIGHT$ (1$, 5) :»RETURN 
I$=STR$ (1%) : I=LEN (1I$) : I[$=RIGHT$S (I$, I-1) : 1[$="00000"+I1s$ 
: IS=RIGHT$ (I$,5) »RETURN 


10 A=120:60SUB 5:FOR I=1 TO 13:PRINT BL$;:NEXT 
11 A=540:60SUB 5:PRINT B4$; :A=580:605UB 5:PRINT BS5$s; 


: RETURN 


12 A=240:60SUB 5:FOR I=1 TOD 10:PRINT BL$; :NEXT:A=540 


:GOSUB 5:PRINT B4$; 


13 A=6580:60SUB 5:PRINT BS5$; :RETURN 


14 


15 


16 


21 


253 
24 


32 
35 
54 
35 


36 


37 


39 


POKE 53280, 6:POKE 53281,6:PRINT"{CLEAR, 
WHT> {LEERT.2>HI - TRUCKER ..."; 
DIM MT(2),MP (2,25) ,MP$ (2,25) ,MR$ (2,25) ,2M(2,25),D$(6), 
NT$(4):DIM AA$(100) 
G0OSUB 15220 
PRINT" {CLEAR}":POKE 53280,6:POKE 53281 ,6: A$=" {HOME} " 
FOR Ii=1 TO 40: A$=A$+" {CU=RE}":NEXT 11 
FOR Ii=1 TO 25:B$=B$+" CU=AB}":NEXT 11 
GOSUB 12000 
="{RVSON,BLU} {LEERT.SIE ZEILE LERE R RC 
LEERT.7}" 
B3$=" {RVSON, BLK,S=-} {LEERT.37,8=-}":02$=" {RVSON, BLU} " 


GOSUB 18100 

51=54279:F1=S51:F2=S1+1:W1=51+4:H1=51+6: SA=-S51+5:1L1=S1+24 
SI=54272:FL=SI: FH=SI+1:W=SI+4:H=SI+6: AS=SI+5:1=SI+24 
DS$ (O0) ="MONTAG{LEERT.4}7":DS$ (1)="DIENSTAG{LEERT.2}>" 

» DS$ (2)="MITTWOCH{LEERT.2}>" 

DS$ (53) =" DONNERSTAG" »DS$ (4) ="FREITAG{LEERT.S3}" 

» D5$ (5) ="SAMSTAG{LEERT.S}" 

DS$ (6) ="SONNTAG{LEERT.S3>" 


D1$=CHR$ (135) : D2$=CHR$ (45) : DI$=CHRS$ (157) : A7$=CHR$ (32) 
»: CU$=CHRS$ (145) 

AB$="{LEERT.40}>" 

60T0 45 

I=INT (RND(1)&X) +1:RETURN 
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41 I$=STR$(I)zII=LEN(I$) : I$=RIGHT$ (IS, II-1) 
: I$=" {LEERT.63"+1$: I$S=RIGHT$ (I$,6) 

42 I$=LEFT$(I$,4)+"."+RIGHT$(I$,2) :RETURN 

45 BL$="{LEERT.40>" 

47 DEF FNA(X)=INT ((X82100)+0.5) /100 

50 B4$="{LEERT.8,BLK,C=D,C=I,RVSON,LEERT.3,RVSOFF,C=I,C=F, 
LEERT.25>" 

52 B5$="{LEERT.6,C=D, RVSON,LEERT,C=1.2,RVSOFF,LEERT,RVSON, 
S=-,RVSOFF,LEERT,RVSON,C=I.2,LEERT,RVSOFF,C=F, 
LEERT.23}" 

&0 XC=TI 

62 IF XC>1000 THEN XC=XC/10:60T0 62 

64 X=INT{RND(1)2XC) +1 

90 WF=190:NT$(1)="ERSTE":NT$(2)="ZWEITE" 

92 NT$(3)="DRITTE":NT$(4)="VIERTE" 

95 GOSUB 5650 


1000 XC=190: MF=0: HR=0: HS=7: PRINT" {CLEAR,RVSON, BLU}"; 
:POKE 535281,6:POKE 53280,6 

1001 NT=0:HL=0: NS=0: SP=0: CX=0: XC=0: XT=0: DH=0: CR=0: C$S=0: 

1002 FOR I=1 TO 24:PRINT B2$; :NEXT:A=40:60SUB 5:PRINT BL$; 
:60SUB 2110 

1005 A=120: G0SUB S5:PRINT" (PUR, RVSON, S=U,S=3.38,5=1}"; 

1005 PRINT" {S=-, S=U,5=#.2>)$15=2.2,5=K} {LEERT.23,5=J, 
S=4.2)$15=43.2,5=1,5=-}"; 

1007 A=171:60SUB 5:PRINT"{BLU?LOS ANGELES FRACHTHOF"; 

1008 A=-200: G0OSUB 5:PRINT"{BLK,S=-} {LEERT.2>FRACHT {LEERT. 
3,5=-,LEERT.63BEMERKUNGEN{LEERT.8,5=-}"; 

1009 PRINT" {RVSON, S=-}1.ORANGEN{LEERT.ZS, 
S=-} HOHER VERDIENST =——-{LEERT.6,5=-}7"3 

1010 PRINT"{S=-} {LEERT.11,S=-}WENN SIE FRISCH ANKOMMEN £ 
S=-}"; 

1012 PRINT" {S=-} {LEERT.11,5=-,LEERT.25,5=-}"; 

1020 PRINT" (5S=-}2.WHISKEY{LEERT.Z, 
S=-}10FACHER GEWINN? {LEERT.2}>STEUER {S=-}"; 

1021 PRINT"{S=-} {LEERT.11,S=-}UND MAFIA VERFOLGEN DICH! 
S=-}"; 

1022 PRINT" {S=-} {LEERT.11,S=-,LEERT.25,S=-}"3; 

10530 PRINT" (S=-}3. POSTSAECKE {S=-}NIEDRIGER {LEERT. 3}VERDIE 
NST, {LEERT.3,S=-}"; 

1051 PRINT"{S=-} {LEERT.11,S=-}DAFUER KEIN ZEITLIMIT'<{LEE 
RT.3,5=-})"; 

10532 PRINT" {C=Q,$5=3.12,C=E,5=#2.25,C=W}"; 

10553 PRINT" (S=—-} {LEERT.37,S=-}";3 

10534 PRINT" (S=-} {LEERT.37,5=-}"; 

1035 PRINT" (5=J,5=2.38,5=K}"; 

1040 A=602: 60SUB 5:PRINT"{PUR,RVSON? DIE FRACHT SOLL DONN 
ERSTAG UM 16 UHR "; 

1060 A=542:60SUB 5:PRINT" IN NEW YORK SEIN. WELCHE NIMMST 

DU: {LEERT.2,CU=L1.2}>"; 

1080 POKE 53281,1:D=1:60SUB 11000:CT=VAL (DI$) 
»:IF CT<1 OR CT>Z3 THEN 1082 

1081 GOTO 1087 

1082 A=502: GOSUB S5:PRINT" {RVSON,C=3} JETZT FUER DIE LANGS 
AMEN -{LEERT.11}>"; 

1085 A=642:60SUB 5:PRINT" WELCHE {LEERT.2+FRACHT NIMMST DU 
u 2. 2 5. {LEERT.S3,CU=L1.2>"; 

1085 60T0O 1080 

1087 A=602: GOSUB S:PRINT"{BLK,GRN> WIEVIEL WILLST DU LADEN 
»{LEERT.137"3 

1089 A=642:60SUB 5:PRINT" (20000 KILO SIND LEGAL) 
s{LEERT.13,CU=L1.5>"3; 

1090 D=5:60SUB 11000: WL=VAL (DIS) 

1092 IF WL<11000 THEN 1094 

10953 60T0 1110 

1094 A=602:G6GOSUB 5:PRINT" {RVSON,C=3}WOVON WILLST DU LEBEN, 
WENN DEIN{LEERT.6>"; 
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41 Formatierung eines Geldbetrags auf 2 
Stellen hinter dem Punkt (Komma ist in 
BASIC nicht möglich). 


47 Formel zur Aufrundung von Cent- 
bruchteilen 


60 Funktion zur Einrichtung eines quasi- 
echten Zufallgenerators. 


95 5650 erzeugt einen Doppelton, der 
während des ganzen Spiels gleichblei- 
bend auffordert, eine Eingabe zu machen. 
Hier wartet der Computer nach Ende der 
Titelmelodie auf irgendeinen Tastendruck, 
um die nächste Seite zu zeigen. 


1000 Das Spiel wird eingerichtet. 


1005 Eine Tafel im Frachthof von Los 
Angeles zeigt mögliche Frachten (s. S. 58). 


1080 Mit D = 1 sind nur einstellige Einga- 
ben möglich; 11000 ist die schon erwähn- 
te, absolut sichere und fehlerfreie Einga- 
beroutine — alle Eingaben außer 1, 2, 3 
werden zurückgewiesen (siehe auch 
1082). 


1092 Eine Ladung unter 11000 ka kann 
nur auf Eingabefehlern beruhen, also wirc 
noch mal nach der Lademenge gefragt. 


1110 Das Beladen dauert natürlich etwas 
und kostet auch im Programmablauf eine 
Stunde — ich habe die Zeit genutzt, um die 
Straßen-, Ort- und Meilen-Strings zu 
füllen. 


1200 Erlaubt sind 20000 kg, der LKW 
faßt aber 25000 kg. Das bringt wohl mehr 
Frachtgeld, aber auch Strafen für Überla- 
dung an einigen Staatengrenzen, und es 
erhöht den Verbrauch. 


1208 Mit 5653 ein Doppelton; 2110 die 
Uhr wird eine Stunde vorgestellt. 


1209 Ein Teil des beschriebenen Bildes 
wird gelöscht (4); die neue Frage, hier 
nach Reifenwechsel, erscheint. 


1230 Die direkte Frage erscheint im unte- 
ren Teil der Anzeigetafel. Hier wird ab 
PRINT Stelle 642 die zweite Zeile ge- 
löscht. 


1231 Die erste Zeile wird mit einer neuen 
Frage überschrieben und der Cursor zu- 
rückgenommen, um an der richtigen Stel- 
le für die Eingaberoutine zu stehen. 


1235 Eingabe der Antwort 


1239 Die ersten 9 Zeilen der Anzeigetafel 
werden im Unterprogramm Zeile 4 wieder 
gelöscht — oder vielmehr mit Leerzeichen 
überschrieben. 


1240-1335 Weitere Fragen zum Reifen- 
wechsel und Einrichtung einer Variablen, 
die später durch den Reifenzustand die 
Unfall- und Pannenhäufigkeit mitbestim- 
men kann. 





1095 A=642:60SUB S:PRINT"TRUCK NUR HALB BELADEN IST? ALSO 
ı {LEERT.S5,CU=L1.53"35 

1096 D=5:60SUB 11000: WL=VAL(DI$):GOTO 1092 

1110 A=602:60SUB 5 

1112 PRINT" {RVSON,PUR? {LEERT.3}0.K., 
DEIN TRUCK WIRD BELADEN{LEERT.5}"”3 

1115 A=642:60SUB 5:PRINT"{RVSON} {LEERT.3}WARTE BIS MAN B 
ESCHEID SAGT !{LEERT.S5}"3 

111& RESTORE 

1150 FOR RT=0 TO 2:READ NP,MT(RT):FOR I=1 TO NP 

1170 READ MP(RT,I),MP$(RT,T),MR$S(RT,I),ZM(RT,I):NEXT I,RT 

1190 TC=10:WF=190:NP=1:T5=1:5L=55: XN=XN+1:60SUB 2100 

1195 A=602:60SUB 5: PRINT" {RVSON,GRN} {LEERT.4}JETZT KANNS 
T DU LOSFAHREN{LEERT.8>"; 

1196 A=642:60SUB 5:PRINT" {RVSON,GRN? {LEERT.37,RVSOFF, 
C=73"; 

1200 IF WL>25000 THEN WL=25000: A=642:G0SUB 5:60T0 1205 

1202 GOTO 1208 

1205 PRINT" RVSON,PUR}MIT 25000 KILO IST DEIN HAENGER VOL 
L{LEERT.2,0=73";5 

1208 GOSUB 5653: HR=HR+1: PRINT" {RVSON, BLU}"3:60SUB 2110 
ıWY=INT (WL/3) 
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1209 GOSUB 5550:60SUB 4:60T0 1219 

1219 PRINT" (C=@,5=2.38,C=W,C=7}"; 

1225 A=-243:605UB 5:PRINT" {RVSON,BLK} 
ı {LEERT.2}7"3 

1225 A=283:60SUB 5: PRINT" {RVSON} 
190.- "53 

1227 A=3653:60SUB 5: PRINT" {RVSON} 
IFEN KAUM{LEERT.23"; 

1228 A=403:60SUB 5:PRINT" {RVSON} MEHR{LEERT.Z3PROFIL{LEE 
RT.Z3ALS EIN{LEERT.2>POLITIKER "5; 

1229 A=443:60S5UB 5:PRINT"{RVSON} WAEHREND EINER TALKSHOW 
- {LEERT.4}"3 

12350 A=-642: GDSUB 5:PRINT" {RVSON,PUR} {LEERT.S7,CU=SL1.23"; 

12351 A=502:605UB 5:PRINT"{RVSON,PUR> WILLST DU SIE WECHSE 
LN: {LEERT.14,CU=L1.23"; 

1255 D=1:605UB 11000: Z$=DI$:PRINT" {RVSOFF,CYN}" 

1256 IF Z$="N"THEN 1350 

1237 IF Z$="J"THEN 1259 

1238 GOTO 12531 

12539 GOSUB 4 

1240 A=283:605UB 5:PRINT" {RVSON,BLK} 
TET $ 200. "3 

1241 A=323:60SUB 5:PRINT"{LEERT.2>EIN RUNDERNEUERTER {LEER 
T.5>$ 100.- "; 

1242 A=602: 60SUB 5:PRINT" {RVSON,PUR> {LEERT.S>WELCHEN TYP 

WILLST DU :{LEERT.9,CU=LI.2>"; 

12453 D=1:605UB 11000: Z$=DI$ 

1244 IF Z7$="R"OR Z$="N"THEN 1270 

1245 G60TO 1242 

1270 A=542:605UB 5: PRINT" {LEERT.S}WIEVIELE 
: (LEERT.23,CU=LI.27"3 

1275 D=1:60S5UB 11000: T=VAL (DI$) 

1280 IF T=3 THEN IF Z$="N"THEN TS=2: T=2: XC=XC+200 

1290 IF T<O OR T>2 THEN 1330 

1500 IF T=O0 THEN 1350 


KOSTEN BISHER 
1 VOLLER TANK DIESEL $ 


UVEBRIGENS HABEN ZWEI RE 


EIN NEUER SCHUH KOS 
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1310 IF Z$="R"THEN TC=TC-38T: XC=XC+1008T:60T0 1350 

1320 IF Z$="N"THEN TC=TC-48T: XC=XC+2008T:60T0 1350 

1330 A=602: 60SUB 5:PRINT"{LEERT.2>WIE WAR DAS ?{LEERT.23V 
ERSUCH’S NOCHMAL{LEERT.3}"; 

1335 60TO 1270 

1350 G0SUB 4 

1355 A=242:60SUB 5:PRINT" {RVSON,BLK>DU KANNST ZWISCHEN DR 
EI ROUTEN WAEHLEN"; 

1356 A=326: 60SUB S: PRINT" {RVSON> NORD-, 
MITTEL- UND SUEDROUTE. "; 

1357 A=602:60SUB S:PRINT"{SRN} {LEERT.373"; 

1358 A=642:G60SUB 5: PRINT" {GRN? WELCHE NIMMST DU 
:{LEERT.19,CU=LI.23"; 

1359 D=1:60SUB 11000: Z$=DI$s 

1365 IF Z$="N"THEN RT=1:RH=4:601T0 1395 

1370 IF Z$="M"THEN RT=0:RH=2:60T0 1395 

1375 IF Z$="S"THEN RT=2:RH=1:6010 1395 

1380 A=602:G60SUB 5:PRINT"BITTE ANTWORTE 
: NORD, SUED ODER MITTE!"; 

1385 60T0 1358 


2 DKL Sa a HOSE ? a ie 
E  Tond 10 NL LEORÜIA STATE 





1595 C2$="{C=7})":POKE 53281,6:60SUB 10000:60SUB 1557 
:60SUB 2100:60T0 1600 


1400 GOSUB 16300: Ad=( (SP*2) £CDXCR) -300000 
1410 AS=RND (0) 21E7 
1415 IF 65=3 AND SP<&5 THEN 2530 


1420 IF A&>AS THEN POKE W1,0:60T0 4000 
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1355 Die Fahrtroute wird gewählt. Die 
Nordroute ist kurz, hat aber große Polizei- 
»Dichte« und schlechtes Wetter. Also muß 
oft erheblich langsamer als auf den ande- 
ren Routen gefahren werden. Denn Glatt- 
eis, dichter Nebel oder sogar Blizzards er- 
lauben nur mit größtem Unfallrisiko mehr 
als 20 Meilen Geschwindigkeit. Die Süd- 
route ist einige 410 Meilen länger, birgt da- 
für aber viel weniger Scherereien mit der 
Polizei und kaum Ärger mit dem Wetter. 
(Ich habe bemerkt, daß meist die Südrou- 
te gefahren wird. Das liegt wohl an den 
farbigeren Namen wie Texas, Dallas — 
»Ewing«-EinfluB? —, Nevada usw. Denn 
ein Versuch zeigt, daß die 410 Meilen der 
längere Route häufig nur mühsam mit hö- 
herer Geschwindigkeit aufgeholt werden 
können. Nicht selten endet das im Knast 
wegen wiederholtem »Speeding«.) 


1395 Aufbau des Hauptbildes. Mit POKE 
93281,6 wird die Hintergrundfarbe blau 
gesetzt, 10000 zeichnet den Ausblick aus 
dem LKW Fahrerhaus, 1557 verzeichnet 
die zu fahrenden Meilen, und 2100 bringt 
Datum und Zeit auf den neuesten Stand. 


1400 16300 setzt das Motorgeräusch 
fest, wobei sich die Höhe aus einer Funk- 
tion der Geschwindigkeit ergibt. A6 als 
Funktion von Geschwindigkeit SP, Stra- 
Benzustand CR und Wohlbefinden des 
Fahrers (von munter bis müde). CD dient 
zusammen mit AS in Zeilen 1410 zur Er- 
mittlung eines Unfalls, der die Fahrt been- 
den kann. 


420 POKE W1,0 setzt die Lautstärke des 
Motorengeräuschs auf Null, 4000 zeigt 
mit Krachen und Blitzen einen Unfall; der 
Truck wird zu einem Haufen Schrott, und 
das Fahrerleben endet. 


1430 A6 wird neu als Funktion der gefah- 
renen Meilen MF und des Reifenzustan- 
des TC eingerichtet. 


1440 Errechnung der Reifenpannen. RH 
als Routenvariable zeigt, daß die Pannen- 
häufigkeit auf den schlechteren und hei- 
Ben Straßen des Südens steigt. 


1442 GS ist ein »Flag«, der gesetzt wird, 
um anzuzeigen, ob die Straße frei ist und 
man so schnell wie möglich fahren kann, 
oder ob etwa Polizei auf der Lauer liegt 
und zwingend jede Geschwindigkeits- 
übertretung ahndet. Je nach Inhalt der Va- 
riablen wird die Polizeiroutine übersprun- 
gen (GOTO 1460) oder unter Umgehung 
der Zufallsmöglichkeit auf jeden Fall auf- 
gerufen (2306). 


1450 SP = Gefahrene Geschwindigkeit, 
SL = Erlaubte Höchstgeschwindigkeit; der 
Faktor RH zeigt, daß im Süden einige Mei- 
len schneller gefahren werden kann. Süd- 
route: 55 — 1 + 10 = 64, Nordroute 55 — 4 
+ 10=61 mph. 


1460 Die Stundenzahl wird um 1 erhöht. 


1470-1500 Errechnung des Dieselver- 
brauchs abhängig von der Geschwindig- 
keit. 

1500 Wenn der Tank WF leer ist, bleibt 
der Truck stehen; dann muß man unter 
Einsatz einer kostbaren Stunde teuren 
Treibstoff besorgen (2500). 


1510 Die derzeitige Geschwindigkeit 
wird zu den gefahrenen Meilen addiert 
(das funktioniert, weil jeder Durchlauf die- 
ser Routine eine Stunde bedeutet — also 
hat man auch nach einer Stunde die mit 
der Geschwindigkeit angegebene Zahl 
Meilen hinter sich gebracht). 


1520 Wenn die Zahl der gefahrenen Mei- 
len MF die Anzahl der zu fahrenden Meilen 
MT überschreitet, geht das Programm zur 
Endroutine und Abrechnung über (5000). 


1540 Datum und Uhrzeit werden auf den 
neuesten Stand gebracht (2100). 


1550 Alle Anzeigen (Tank, Meilen, Ge- 
schwindigkeit etc.) werden mit den aktuel- 
len Werten beschrieben. Das muß wegen 
der Lesbarkeit je nach Wetter, Tag oder 
Nacht unterschiedlich geschehen (CR = 
Wetter, C1 = Tageszeit). 


1450 A&s=SQOR (MF+100) TC 


1440 IF A&>RH825000#RND (O) THEN POKE W1,0:60SUB 2500 
:G60SUB 183500 . 


1442 IF 65=1 THEN 1460 
1445 IF 65=2 AND SP>SL THEN GDSUB 2305: 605SUB 7:60TD 14850 
1446 IF 65=2 THEN 14650 


1450 IF SP>SL-RH+10 THEN GOSUB 2300:60SUB 7 


14580 HR=HR+1:HL=HL+1 


1470 IF SL<40 THEN SL=55 


1480 T2=ABS(55-SP):IF T2>12 THEN T2=12.5 

1490 T1=INT (SP/ (4.5-0.23T2)) 

1500 WF=WF-Ti: IF WF<O THEN GOSUB 5650: GOSUB 2500 
:60SUB 16300 


1510 MF=MF+SP 


1520 IF MF+1>MT(RT)THEN MF=MT (RT) :G0OSUB 5650:60T0 5000 


1540 GOSUB 2100:60T0 1590 


1550 REM 

1551 X=10:60SUB 40: IX=WF-5+I:WF=I% 

1552 PRINT"{C=3}";=:1IF CR>S3 AND Ci1=0 THEN PRINT" {RVSON, 
BLK}"3 

1553 GOSUB 8:A=925:605UB 5:PRINT Is; :A=935:60SUB 5: IX=SP 
:GDSUB 8:PRINT I$s; 


1554 PRINT" {RVSON,BLK}";z2IF Ci=1 THEN PRINT" {RVSOFF,C=33"; 

1555 A=945:60SUB 5: IX=MF:G0SUB 9: PRINT Is; 

1557 PRINT" {RVSON,BLK}"3zIF Ci=1 THEN PRINT" {RVSOFF,C=3}"; 

1558 A=9535:60SUB 5: IX=MT(RTI-MF:GOSUB 9:PRINT I$; 

1559 PRINT" {RVSOFF,CYN?"3:IF CR>S AND Ci=O THEN PRINT" {RV 
SOFF,BLK}"; 

1560 RETURN 

1590 60SUB 1550 


1600 G60SUB 12:IF MP(RT,NP)<=MF THEN G0OTO 3100 
1604 GOTDO 1609 


15805 A=120: 60SUB S5:PRINT" {BLK,S=U,5=2.38,S=1}" 
15805 A=1&0: G0SUB 5:PRINT" {C=W,RVSON, 

WHT} ROAD{LEERT.253STATE{LEERT.2,RVSOFF,BLK,C=Q>"; 
1607 A=200: GOSUB 5: PRINT" (5=J,5=2.38,S=K,RVSON, WHT}"; 
16808 A=-171:60SUB S5:PRINT MRS$S(RT,NP) 5; = PRINT" {RVSOFF,CYN}"; 

RETURN 
1609 NS=NS+1: IF NS>3 THEN GOSUB 1700 


pn 5; 


16810 Ci=0:60SUB 1605:60SUB 2800: IF DH<4 OR DH>22 THEN POK 
E 55281,0:C1=1:601T0 1617 

1611 IF CR=5 THEN POKE 53281,14 

1612 IF CR=4 THEN POKE 53281,11 

1615 IF CR=1 OR CR=3 THEN POKE 55281,6 

1614 IF CR=10 THEN POKE 53281,12 


1590 Aufruf der Anzeigenroutine 1550. 
Die Routine mußte als Unterprogramm 
umgearbeitet werden, dasie auch von an- 
deren Stellen des Programms — wie etwa 
»Leerer Tank« (Tank = 0, Geschwindigkeit 
= 0) - benötigt wird. 


1600 Hier beginnt die Routine der Stra- 
Benabschnitte. Die Anzahl der gefahrenen 
Meilen im Verhältnis zu den Zahlen der 
Straßenabschnittsvariablen bestimmt den 
Aufruf des Unterprogramms 3100 mit den 
Routinen: Andere Zeitzone (3210), Stra- 
Bengebühr (3310), Baustelle (3360), Pho- 
tographieren der Geschwindigkeit (3410), 
Gewichtskontrolle (3500), kaputte Kühl- 
anlage (3860), nur bei Orangentransport 
mißlich). 


1605 Routine der Straßen- und Staaten- 
namen. 


1609 Nach 3 Straßenabschnitten wird 
die Tankstellenroutine aufgerufen. 





1610 Frage nach dem Wetter (2800); mit 
POKE 53281,0 wird der Bildgrund 
schwarz, wenn es Nacht — zwischen 22 
und 4 Uhr morgens - ist. 


1611-1616 Jenach Wetterlage (CR) wird 
die Bildfarbe verändert. Beispielsweise 
ist CR = 10 Nebel, der Hintergrund wird 
mit POKE 53281 (Adresse des Bildhinter- 
grundes), 12 (Farbe grau) verändert. 


1617 Beischlechter Sicht oder in der Zeit 
von Abenddämmerung bis zur Morgen- 
dämmerung (DH; 21 bis 5 Uhr) werden in 
Zeile 10900 die Scheinwerfer des Trucks 
zur Beleuchtung der Straße eingeschaltet. 


1618 Der Zustand des Befindens- wach, 
müde, erschöpft — aus der Routine 3000 
wird mit dem Unterprogramm 9800 von 
Iinks ins Bild geschoben. 9900 fragt nach 
den Routinen des Whiskeytransports — 
Funkangaben des »Blockers« (ein Begleit- 
fahrzeug, das die Straße überwacht, und 
Verfolger ablenken soll). 


1626 Zeile 10200 zeichnet mal rechts, 
mal links neben dem Highway verschiede- 
ne Reklametafeln; Bilder, die von US-Stra- 
Ben nicht wegzudenken sind. 


1643 Falls der Wetterzustand Blizzard 
anzeigt, blitzt und heult jetzt die Routine in 
Zeile 16250. 


1645-1670 Die wichtigste Frage jedes 
Durchgangs der stundenweise durchfah- 
renen Straßenabschnitte, nämlich die 
nach der Geschwindigkeit. Zu schnelles 
Fahren kann Unfall (bei Müdigkeit und 
schlechtem Wetter) oder Polizeistrafe be- 
deuten. Zu langsames Fahren mindert das 
Frachteinkommen — bei Ankunft vor der 
Zeit (Donnerstag 16 Uhr) gibt es Boni, bei 
Verspätung erhebliche Einbußen. 

Jetzt beginnen die im Programmablauf 
immer wieder benötigten Unterpro- 
gramme. 





1617 IF CR>3 OR DH<& OR DH>20 THEN GOSUB 10900 


1518 GOSUB 9800: 6DSUB 99700 
1619 PRINT"{BLK}";:IF Ci=1 THEN PRINT" iC=53}";5 
1620 A=243:60SUB 5:PRINT CR$; 


16264 GOSUB 10200: IX=WF=PRINT"{0=3}3";5 
:IF CR>S AND Ci=0 THEN PRINT" {RVSON,BLK}"35 
1627 GDSUB 1552 
1640 PRINT" (C=7}"; 
1642 IF CR>S AND Ci=0 THEN PRINT" {RVSON,BLK}"; 


16453 IF CR=50 THEN GOSUB 15250:POKE 55281,1 


1645 A=935:605UB 5:PRINT"?--{CU=L1.23"; 

1649 D=2:60SUB 11000: SP=VAL (DI$) »PRINT" {RVSOFF}>"3 

1550 IF SP<20 THEN A=4053:60SUB 5:60T0 1852 

1851 GOTD 1855 

1552 PRINT"MINDESTGESCHWINDIGKEIT 20 MPH{LEERT.S5}"; 
:G0TO 1640 : 

1653 IF SP>INT(1.5%SL) THEN SP=INT (1.5%SL) :A=363: 60OSUB 5 
:G0TO 16855 

1654 G60TO 1670 

1655 A=322:60SUB 5:PRINT BL$; :PRINT"DEINEN ALTEN SCHLITTE 
N KANNST DU AUF{LEERT.4}"; 

1555 PRINT" DIESER STRASSE NICHT SCHNELLER ALS{LEERT.S5?"; 

1657 PRINT" {LEERT.10)3";SP; "MPH FAHREN"; :GDSUB 5650 

1570 A=935:60SUB 5: I%=SP:6OSUB 8:PRINT 1$%;5:60T0 1400 

1590 A=120:60SUB 5:FOR I=1 TO 8:PRINT BL$; :NEXT=:RETURN 





1700 GOSUB 7:X=2:60S5UB 40: IF I=1 THEN 1730 

1708 A=242:60SuB 5 

1709 PRINT" {LEERT.13, PUR, S=U,S=%.6,S=I,LEERT.193"; 

1710 PRINT" {LEERT.13,S=-, RVSON, WHT,LEERT,S=U,C=0.2,8=I, 
LEERT,RVSOFF,PUR,C=Q,5=#2.3,5=I,LEERT.5,RVSON, 
YEL>ROOMS{RVSOFF,PUR> {LEERT.43"; 

1711 PRINT" (LEERT. 13,5=-, RVSON, WHT}TEXACO{RVSOFF ,PUR,C=Q, 
S=-1.2,5=1,5=-} {RVSON,GRN}BEER 25 C{RVSOFF, 

PUR} {LEERT.4}"”; 

1712 PRINT" {LEERT.13,S=-,RVSON, WHT,LEERT,S=J,C=U.2,5=K, 
LEERT ,RVSOFF ‚PUR, S=-,LEERT.2,5=-.2,LEERT.2,C=L,LEERT.S, 
C=J,LEERT.63"; 

1713 PRINT" {LEERT.13,5=J,5=3.5,S5=K,LEERT,RVSON, BLK,S=\, 
S=-F.16,RVSOFF,CYN}"; 

1714 PRINT" {LEERT.23,RVSON,C=1,5S=\, 

LEERT.S}THE FRIENDLY iRVSOFF,CYN}"; 

1715 PRINT" {LEERT. 26, RVSON, WHT,LEERT.3}SERVICE{LEERT.4, 
RVSOFF,CYN?”"; 

1716 A=533: 60SUB S5:PRINT" {LEERT.14,RVSON, WHT}T{RVSOFF,BLK, 
C=A,5=3.2,C=R,5=#.2,C=S,RVSON, WHT} {LEERT.4>S{RVSOFF}"; 

1717 A=573:60SUB 5:PRINT" {CYN}STOP ?{LEERT.8,RVSON, 
WHTIR{RVSOFF,BLK,S=-,C=-} {5=-} 15=-,RVSON, 

WHT3 {LEERT.4}T{RVSOFF}"; 

1719 A=613:GOSUB 5: PRINT" {LEERT.13,BLK,S=U,RVSON, 
WHTIU{RVSOFF „BLK,S=-,C=+,C=-, 5=-} (S5=-,RVSON, 

WHT> {LEERT.4}0{RVSOFF}"; 

1720 A=6&2: G60SUB 5: PRINT" {LEERT.4,BLK,S=-,RVSON, 
WHTIC{RVSOFF,BLK,S=-,C=+} {S=-} 1S=-,RVSON, 

WHT} {LEERT.4>P{RVSOFF}"; 

1721 A=702: 60SUB S:PRINT" {LEERT.4,BLK,S=J,RVSON, 
WHTIK{RVSOFF,BLK,S=-} {0=-,S=-} (S=-,RVSON, 

WHT} {LEERT.S,RVSOFF}"3:G0T0 1743 

1730 GOSUB 10100:A=242:60SUB 5 

1751 PRINT" <LEERT. 15,BLK,S=U,5=2.5,S=I,LEERT.207"3; 

1732 PRINT" {LEERT.13,S5=-, RVSON, RED,LEERT.S5,RVSOFF,BLK,C=Q, 
S=I,LEERT.9,RVSON, YEL}PACKAGED {RVSOFF,BLK} "; 

1755 PRINT" {LEERT. 13,S=-, RVSON, WHTIEXXON{BLK} {LEERT.6, 
RVSOFF,LEERT.4,RVSON, YEL}LIQUOR $S1{RVSOFF,BLK} "; 

1754 PRINT" {LEERT.13,5=-,RVSON,RED,LEERT.S,RVSOFF,BLK,C=Q, 
S=K,LEERT.2,RVSON,LEERT,RVSOFF,LEERT.7,C=-,LEERT.S,C=-, 
LEERT.2}>"; 

1735 PRINT" {LEERT.13,5=J,5=#.5,5=K,LEERT,RVSON, BLK,LEERT, 
S=F,LEERT,S=F,LEERT,S=F,LEERT,S=F,LEERT,S=F,LEERT,S=F, 
LEERT,S=F,LEERT,S=F,LEERT,S=F,RVSOFF,CYN}"3 

1736 PRINT" {LEERT.25,RVSON, RED, LEERT.14,RVSOFF,CYN} "3; 

1737 PRINT" {LEERT. 25,RVSON, WHT}TRUCK SERVICE {LEERT.2, 
RVSOFF,CYN}"”3; 

17538 A=533: 60SUB S:PRINT" {LEERT.14,RVSON, RED,LEERT,RVSOFF, 
BLK,S=U,5=2.2,C=R,5=#2.2,5=I,RVSON, RED,LEERT.6,RVSOFF, 
WHT}"; 

17539 A=573:60SUB 5:PRINT"STOP ?{LEERT.8,RVSON, 
WHTIG{RVSOFF,BLK,S=-}B {S=-} (S=-,RVSON, 

WHT} DA{LEERT.S3,RVSOFF}"; 

1740 A=613:6DSUB S:PRINT" {LEERT.13,BLK,S=U,RVSON, 
WHTIA{RVSOFF,BLK,S=-,C=+}U{S=-} {C=-,S=-,RVSON, 

WHT> IXLEERT.S3,RVSOFF}";z 

1741 A=652: 6G0SUB S5:PRINT" {LEERT.4,BLK,S=-,RVSON, 
WHT}S{RVSOFF ,„BLK,S=-,C=+} 1{S=-}R{C=+,S5=-,RVSON, 

WHT> LA{LEERT.S,RVSOFF}>"; 
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1700 Abwechselnd erscheinen 2 Tank- 
stellen — Texaco mit Bier- und Zimmer- 
Werbung, Exxon mit in Packpapiertüten 
verpacktem Alkohol (in sogenannten 
»trockenen Staaten« wird der Whiskey in 
unverfänglichen Tüten mitgeführt). Tank- 
stellen dienen nicht nur dem Treibstoff- 
Fassen, sondern auch als Rast- und Ru- 
heorte für eventuell dringend benötigten 
Schlaf. (Man beachte, daß das Programm 
sogar auf unterschiedliche Tageszeiten 
eingeht: Der Erholungsfaktor beträgt we- 
gen des Krachs am Tage nur etwa die 
Hälfte des Nachtwertes, 1970.) 


1790-1793 Für »Rechenkünstler« — zu- 
viel getanktes Diesel läuft unwiederbring- 
lich auf die Straße. 


1800 Sollte auf der eben passierten 
Strecke ein Reifen geplatzt und nun auch 
kein Reservereifen mehr brauchbar sein, 
dann fragt der freundliche Tankwart, ob 
man einen neuen kaufen will. Es empfiehlt 
sich sehr. Noch eine Panne bei keiner Re- 
serve kostet viel Zeit und Geld (2710). 


1960 Wenn man rastet, wird jede Stunde 
natürlich auf der Uhr weitergestellt. Außer- 
dem verbraucht die Kühlanlage des 
Trucks bei Orangenfracht pro Stunde 7 
Galonen Diesel. Besonders ärgerlich, 
wenn gerade an dieser Tankstelle die Gal- 
lone weit über 1 $ kostet. 


1965 Die Tankanzeige muß entspre- 
chend runtergesetzt werden (Formatie- 
rung mit Nullen links in 8, Ausgabe auf 
PRINT Stelle 925). 


2010 Die Uhr wird weitergestellt (2100). 


1742 A=702:G605SUB 5:PRINT" {LEERT.4,BLK,S=J,RVSON,RED,LEERT, 
RVSOFF „BLK,„S=- LEERT,C=- ,S=- LEERT}G{S=-,RVSON, 
RED} {LEERT.S,RVSOFF,CYN?"; 

1743 A=-581:605UB 5:PRINT; :D=1:60SUB 11000: Z$=DI$ 

1744 IF Z$="N"THEN NS=1:HL=HL+1:60S5UB 2:6B=0: RETURN 

1745 IF Z$<>"J"THEN A=202:6G0OSUB 5:60T0 1748 

1746 IF GB=1 THEN 2550 

1747 GOSUB 7:60SUB 2100:60SUB 5550: IX=WF:GOSUB 1552 
:G0OTO 1749 

1748 PRINT"MANN, ENTSCHLIESSE DICH! JA ODER NEIN"; 
:60T0 17453 

1749 T=8B5+INT (35#RND (0) ) = IZ=WF: GOSUB 1552 

1750 A=120:605UB 5:PRINT"{LEERT.4>)DIESEL KOSTET HIER CENT 
S/GAL:";T;3 

17680 A=200:60SUB 5:PRINT" {LEERT.4>WIEVIELE{LEERT.2>7GALLON 
EN WILLST DU: "; 

1751 D=3:60SUB 11000: T1=VAL (DI$) 

1772 IF T1>0 THEN GOSUB 1690:A=130:60SUB 5:PRINT"DAS MACHT 
: $": T#T1/1005:60T0 1775 

1773 G60T0O 1790 

1775 WFE=WFE+T1:XC=XC+H(T#T1/100) 

1779 IX=WF:GOSUB 1552: A=200:605SUB 5 

1780 PRINT"<LEERT.2>BIS JETZT HAST DU":XC;"s# KOSTEN"; 

1790 IF WF>200 THEN 1792 

1791 GOTO 1800 

1792 A=320:60SUB 5:PRINT" {LEERT.2>DEIN TANK FASST NUR 200 
GALLONEN -{LEERT.4>"; 

1793 PRINT" {LEERT.43"s;WF-200;" GALLONEN UEBERGELAUFEN"; 
:WF=200: I%=WF:GOSUB 1552 

1800 IF TS>O0 THEN GOTO 1900 

1810 T=200+INT (5S0#RND (0) ) z T1=100+INT (70&RND (0) ) :G0OSUB 5550 
»:GOSUB 16590 

1815 A=120:60SUB 5 

1820 PRINT"{LEERT.Z}YEIN NEUER REIFEN KOSTET $";T; 

1825 A=160:605UB 5:PRINT"{LEERT.Z>EIN RUNDERNEUERTER {LEER 
T.6>3$";T1; 

1850 A=202:60SUB 5:PRINT"WILLST DU EINEN REIFEN KAUFEN "; 
»D=1:60SUB 11000: Z$=DI$ 

1840 IF Z$="N"THEN 1902 

1845 IF Z$<>"J"THEN 1815 

1850 A=202:60SUB 5:PRINT"WAEHLE — NEU ODER RUNDERNEUERT "3; 
:D=1:60SUB 11000: Z$=DI$ 

1850 IF Z$="N"THEN XC=XC+T: T5S=2:60T0 1902 

1870 IF Z$="R"THEN XC=XC+T1:T5=1:60T0 1902 

1880 A=280: 60SUB 5:PRINT"WAS SOLL DAS ?",:60T0 1850 

1900 IF XX=1 THEN XX=0:605SUB 5550: 605UB 1690: RETURN 

1901 HR=HR+1:G60OSUB 2100: GOSUB 5450 

1902 GOSUB 16590 

1905 A=160:60SUB 5:PRINT"{LEERT.S>WILLST DU ETWAS SCHLAFE 
N ";:D=1:605UB 11000 

1920 IF DI$="N"THEN RETURN 

1921 IF DIS="J"THEN 1950 

1922 GOTO 1905 

1930 A=240:G0OSUB 5:PRINT" {LEERT.S>WIEVIELE STUNDEN{LEERT. 
9}";:D=1:605UB 11000 

1940 T=VAL(DI$):sIF T<1 THEN RETURN 

1950 DH=HR-24% INT (HR/24) 

1950 HR=HR+T:60SUB 1590: IF CT=1 THEN WF=WF-7 
»IF WF<O THEN WF=0:60SUB 2570 

19655 I%A=WF:A=925:60SUB 5:60SUB 8:PRINT 1%; 

1970 A=160:60SUB 5:IF DH>21 OR DH<12 THEN T=INT(T/2+.6) 
:60T0 1975 

1971 GOTO 1980 

1975 PRINT"{LEERT.S>WEGEN DES VERDAMMTEN{LEERT.2>KRACHS{L 
EERT.73"; 

1975 PRINT" {LEERT.S>KONNTEST DU NUR";T;"H SCHLAFEN"; 

1980 HS=HS+T 

1990 IF T>3 THEN HL=0:60T0 2010 

1995 HL=HL/2 

2010 60SUB 2100:A=240:60SUB 5: PRINT" {LEERT.8S}ZEIT SICH WI 
EDER AUF{LEERT.11>"; 

2015 PRINT"{LEERT.9}>DIE SOCKEN ZU MACHEN"; 
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2025 A=-360:60SUB 5:PRINT"{LEERT.2>JETZT HAST DU"; INT(WF); 
"SALLONEN DIESEL"; 

2027 A=400:60SUB 5:PRINT" {LEERT.8>WILLST DU NACHTANKEN "2 
»:D=1:60SUB 11000 

2028 IF DI$="J"THEN XX=1:60SUB 1690:60T0 1749 

2050 IF DI$="N"THEN GOSUB 1590: RETURN 

2055 60T0 2027 

2100 REM 

2110 DH=HR+8 

2120 DT=INT (DH/24) : DH=DH-24xDT 

21530 IF DT>& THEN DT=DT-7:60T0 2130 

2140 DM$=" UHR " 

2170 IF DH=24 THEN DH=0 

2175 IF SP=0 THEN 2210 

2180 Ci1=0: IF DH<4 OR DH>22 THEN POKE 535281,0:C1=1 
:60T0 2185 

2181 IF CR=5 THEN POKE 53281,14 

2182 IF CR=4 THEN POKE 53281,11 

21853 IF CR=1 OR CR=3 THEN POKE 55281,6 

2184 IF CR=10 THEN POKE 53281,12 

2185 REM 

2185 REM 

2210 A=45:60SUB 5:PRINT C2$;DS$ (DT); 

2212 A=69: GOSUB S:PRINT" {LEERT.2,CU=LI.3} "DH; DM$; 

2213 PRINT"{CYN?"=IF CR>3 AND Ci=0 THEN PRINT"{BLK}"; 

2214 RETURN 





2305 IF (SP-SL+(23RH-5) ) *2<9008RND (0) THEN RETURN 


2506 :FOR I=1 TO 800:NEXT:POKE F2,1:POKE Fi,1i 


2026 Man kann nachtanken, falls ein zu 
langer Aufenthalt mit laufender Kühlanlage 
den Tank geleert hat. 


2100-2214 Datum und Zeit werden hier 
verarbeitet. 


2180 Wenn es nach Verstreichen einiger 
Raststunden hell geworden ist — oder 
dunkel, falls man aus Angst vor Unfällen 
wegen zu großer Übermüdung doch ver- 
sucht hat, tagsüber zu schlafen —, wird 
hier die Wetter- bzw. Tag-Nacht-Hinter- 
grundfarbe neu eingestellt. 





2300 Jede Überschreitung der erlaubten 
Höchstgeschwindigkeit ruft diese Routine 
auf, 


2305 Der »Zufall« bestimmt, ob Polizei in 
der Nähe ist. 


2306 Eine Warteschleife, damit nach der 
letzten Eingabe noch etwas Fahren simu- 
liert wird — dann hält der Truck, und der 
Motor läuft im Stand weiter (POKE-Be- 
fehle). 


2307 Verweis nach 2408, wenn die 
Fracht aus Whiskey besteht (CT = 2). 


2308 Polizeiroutine mit Stopkelle und 
vorgefahrenem Polizeiwagen. 


2316 Der Polizeiwagen ist in ein Unter- 
programm umgewandelt, da er bei der 
»Blitz«-Routine nochmals gebraucht wird. 


2322 Das Strafmaß richtet sich nach Ge- 
schwindigkeit, Route (RT) und Wiederho- 
lungsfall (NT). 


2326 Die Zeit wird gestellt (2100), die Si- 
rene eingeschaltet (16200) und nach Ta- 
stendruck (man hat die Strafe gezahlt und 
darf weiter fahren) der Motor wieder auf 
Touren gebracht (16300). 


2330 Nach dreimaligem Zuschnellfahren 
ist die Reise endgültig zu Ende: 30 Tage 
Gefängnis und Führerscheinentzug win- 
ken dem Täter. 





2408 Ein Beispiel für »bequeme« Pro- 
grammierung — die Zeilennummern dieser 
Polizeiroutine für die Whiskeyfracht sind 
einfach aus dem Überschreiben der 
2308er Polizeiroutine mit 400er Zahlen 
entstanden. Ein leichtes, dann den Text zu 
ändern. 


2507 IF CT=2 THEN 2408 


2508 G60SUB 7:NT=NT+1:A=120:605UB 5 

2509 PRINT"{BLK} {LEERT.2,S=N,C=Y.2,S=M,LEERT.7,CYN, 
LEERT}FAHR RECHTS RAN !{LEERT.8}>"3 

2510 PRINT" {LEERT.2,BLK,S=N,RVSON, RED,S=\,LEERT.2,C=#, 
RVSOFF„BLK,S=M,LEERT,CYN}DER HUETER DES GESETZTES TRIT 
T I; 

2511 PRINT" {LEERT.2,BLK,C=H,RVSON, WHT}STOP {RVSOFF ,BLK, 
C=N} {CYN>AN DEINEN{LEERT.2Z>WAGEN UND{LEERT.2)VERPASST 

’ 
2312 PRINT" {LEERT.2,BLK,S=M,RED,C=#,RVSON,LEERT.2,RVSOFF, 
S=\,BLK,S=N,LEERT,CYN}DIR DEINE ";NT$(NT)3" ANZEIGE"; 
2313 A=280: 6G0SUB 5: PRINT" {LEERT.2,BLK,LEERT,S=M,C=P.2,S=N, 
LEERT,CYN,LEERT}DU WARTEST";NT5"H AUF DAS " 

2514 A=320: 60SUB 5:PRINT"{LEERT.9IIURTEIL DES FRIEDENSRICH 
TERS{LEERT.2}7"; 

2315 60SUB 2316&:60T0 2320 

2316 A=600: GOSUB 5: PRINT" {LEERT.23,RVSON,RED,LEERT,WHT, 
LEERT.S>POLICE{LEERT.S,RED,LEERT,RVSOFF,LEERT.3}"; 

2517 A=640:60SUB 5:PRINT"{LEERT.8,BLK,C=D,C=1,RVSON, 
LEERT.S,RVSOFF,C=I,C=F,LEERT.9,RVSON,BLK,LEERT,S=2.3, 
LEERT,C=+.2,LEERT, 5=%,3,LEERT,RVSOFF,LEERT.3}7"3 

2318 A=580: GOSUB S:PRINT" {LEERT.6,C=D,RVSON,LEERT,C=I.2, 
RVSOFF,LEERT,RVSON, S=-, RVSOFF,LEERT,RVSON,C=I.2,LEERT, 
RVSOFF,C=F,LEERT.S5,S=U,5=2.2,C=E,5=2.8,C0=E,5=#3.2,5=1 
CYN,LEERT.27"3; 

2319 RETURN 

2320 HR=HR+NT = HL=HL+NT 

2321 IF NT>3 THEN 2330 

2322 X=5:60SUB 40: T=(NT21):X=4:G0OSUB 40: T1=5# (RT+{NTEI)) 

2323 A=400:60SUB 5:PRINT"{CYN? DIE STRAFE IST $"; Tl; 
"PLUS $";T 

2524 A=440:G60S5SUB 5:PRINT"{LEERT.2>FUER JEDE MEILE/H ZU SC 
HNELL{LEERT.10}7"3; 

23525 PRINT" {LEERT.2}>DAS KOSTET S$"; T1+(T8(SP-SL)); 
»:XC=XC+T1+(T#(SP-SL)) 

2525 GOSUB 2100:60SUB 15200: 60SUB 15300: RETURN 

2550 A=-400:60SUB 5:PRINT"{YEL> ER STECKT DICH WEGEN RUEC 
KSICHTSLOSEN "3; 

2551 A=440: G0OSUB 5:PRINT" {LEERT.2>FAHRENS FUER 30 TAGE"; 

25352 A=492:60SUB 5:PRINT"IN DEN BUNKER.";:FOR I=1 TO 1000 
NEXT 

25335 A=520:60SUB 5: PRINT" {LEERT.2}DEIN FUEHRERSCHEIN WIRD 
EINGEZOGEN"; 

25535 G0SUB 5550:60T0 5450 

2590 X=5:60SUB 40: T=(NT#1)=2X=4:60SUB 40: T1=5# (RT+{(NT&I)) 





2408 GOSUB 7:NT=NT+1:A=120:605UB 5 
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2409 PRINT"{BLK} {LEERT.2,S=N,C=Y.2,S=M,LEERT.4,CYN, 
LEERT}DAS WAR ZU SCHNELL, BOSS'!{LEERT.3>7"; 

2410 PRINT" {LEERT.2,BLK,S=N, RVSON,RED,S=\,LEERT.2,C=#, 
RVSOFF,BLK,S=M,LEERT,CYN?JETZT KOMMST DU NUR NOCH MIT{ 
LEERT.S3}7"; 

2411 PRINT" {LEERT.2,BLK,C=H,RVSON, WHT}STOP{RVSOFF,BLK, 
C=N}> {CYN}BESTECHUNG WEITER. {LEERT.2>DU GIBST{LEERT.3} 

2412 "PRINT" {LEERT. 2,BLK,S=M,RED,C=#,RVSON,LEERT.2,RVSOFF, 
S=\,BLK,S=N, LEERT, CYN} IHNEN DAS{LEERT.2>"3NT$(NT); 

” DRITTEL" 3 

2415 A=280:60SUB 5:PRINT"{LEERT.2,BLK,LEERT,S=M,C=P.2,5=N, 
LEERT,CYN,LEERT}DER LADUNG. NACH" INT; "HR; 

2414 A=320:60SUB 5:PRINT"{LEERT.F}LASSEN SIE DICH GEHEN"; 

2415 HR=HR+NT: HL=HL+NT: GOSUB 2416:60T0 2420 

2416 A=600: 60SUB 5:PRINT" {LEERT.23,RVSON,RED,LEERT, 
ERN’ROAD{LEERT.2>PATROL {RED} {RVSOFF> {LEERT.2>"3 

2417 A=640:60SUB 5:PRINT" {LEERT.8,BLK,C=D,C=1I,RVSON, 
LEERT.S,RVSOFF,C=I,C=F,LEERT.9,RVSON, BLK, LEERT, C=+.2, 
S=t.6, C=+, 2, LEERT, RUSOFF, LEERT.S3}7"3 

2418 A=680: GOSUB S: PRINT" {LEERT. 6,C=D,RVSON,LEERT,C=1.2, 
RVSOFF,LEERT,RVSON, S=-,RVSOFF, LEERT, RVSON,C=I1.2,LEERT, 
RVSOFF,C=F, LEERT. 5,S5=-U,5=#.2,C=E, 5-2. 8,C=E,5=#3.2,5=1, 
CYN,LEERT. 23"; 

2419 RETURN 

2420 WL=WL-WY: A=360: 60SUB S5:PRINT"{BLK} DU HAST JETZT NO 
CH";WL;"FL WHISKEY{CYN?"3 

2421 IF NT>2 THEN 2430 

2422 X=5:60SUB 40: T=(NT#I) #10:X=4:60SUB 40 
» T1=508 (RT+{1NTX&I)) 

24253 A=400: 60SUB 5:PRINT"{CYN} SIE ERLAUBEN DIR"; Ti; 

"s ZU STIFTEN"; 

2424 A=440:60SUB 5:PRINT"{LEERT.2,5=+3";5T; 
"$/MPH UEBER DEM SPEEDLIMIT{LEERT.6>"; 

2425 A=480:60SUB 5:PRINT" {LEERT.2>DAS BRINGT DER "PENSION 
SKASSE’ $"; T1+(T82(SP-SL));z 

2425 XC=XC+Ti1+(T8(SP-SL)):G60SUB 2100:60SUB 15200 
»:GUSUB 153500: RETURN 

24530 A=400:60SUB 5:PRINT"{YEL} DEIN GESCHAEFT IST IM EIM 
ER... {LEERT.8}7"; 

2451 A=440:60SUB 5:PRINT"{LEERT.2>TRINK DEN LETZTEN WHISK 
EV."3 

2452 A=480:60SUB 5:PRINT"{LEERT.23GEH” NACH HAUSE UND SEI 

FROH, DASS"; 
2456 A=520: 60SUB 5:PRINT"{LEERT.2>DU NICHT IM KNAST SITZT 


2460 GOSUB 5650:60T0 5450 


IE, 5a gti 


IR Rn 


BAER RA EHRT: 


2500 T1=T1+WF:WF=0:SP=0 

2501 T2=INT (T1%(4.5-0.2%2T2)) :MF=MF+TQ:GOSUB 7: IX=WF 
:G60SUB 1552 

2502 IF CT=2 THEN 2515 

25053 A=120:60SUB 5:PRINT" {LEERT.2>NACH"35T2; 
"MEILEN STEHST DU MIT”; 

2504 A=160:60SUB 5:PRINT" {LEERT.2>LEEREM TANK DA- (DUMMKOP 
F). KOSTET{LEERT.2>"; 

2505 A=200: 60SUB 5:PRINT"{LEERT.2>DICH $ 200 EIN FASS DIE 
SEL ZU BE-{LEERT.S5?”"; 
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Die Whiskeyroutine ist in vielem den 
typischen Trucker-Movies und den Süd- 
staaten-Whiskey- und Schmuggelpictu- 
res nachempfunden (etwa die Burt Rey- 
nolds-Filme). Neben dem »Blocker«, 
einem netten Fahrer, der die Verfolger 
ablenkt, gibt es hier z.B. die »korrupte« 
Polizei, die sich nicht zu fein ist, große Teile 
der Ladung zur eigenen Verwendung als 
»Gabe« anzunehmen oder eine Stiftung in 
10facher Höhe für die »Pensionskasse« zu 


fordern (T1 = 50 % statt wie oben T1 =5 
*). 


2430 Der einzige Vorteil der Road Patrol 
gegenüber dem Verfahren der Polizei bei 
normaler Fracht ist ihre illegale Vorge- 
hensweise. Deshalb lassen sie den Truk- 
ker auch laufen und scheuen das Gericht. 


2500 Zu spät ans Tanken gedacht — der 
Diesel ist alle! 


2501 Tankanzeige auf Null (GOSUB 
1552). 


2506 Die Beschaffung von Treibstoff 
kann bis zu 5 Stunden dauern (X = 5, Zu- 
fallsgenerator in 40). 


2510 Die Orangenladung wird mangels 
Diesel nicht mehr gekühlt; ein Teil verfault. 


2515 Bei der Whiskeyfracht verlangen 
die »freundlichen Helfer« ganz andere 
Preise, und man muß bis zu 10 Stunden 
warten. 


2532 Wenn der Blocker funkt, daß der 
Mafiawagen aufholt, muß man schneller 
fahren — auch, wenn dadurch die Gefahr 
besteht, daß ein Stop wegen Geschwin- 
digkeitsüberschreitung den Verlust eines 
Drittels der Ladung bedeutet. Fährt man 
weniger als 64 mph, holen die Mafiatypen 
auf, zerschießen die Reifen (Unfall- und 
Reifenpannenroutine 5600) und annektie- 
ren die Ladung. 


2552 Sollte der Blocker an der nächsten 
Tankstelle das FBI entdecken und das 
durchgeben, muß man unbedingt weiter- 
fahren — auch wenn dann auf offener Stra- 
Be das Faß Treibstoff die ruinöse Summe 
von $ 10000,- kostet. Andernfalls ist, wie 
aus dieser Routine leicht ersichtlich, die 
Fahrt hier zu Ende. 





2506 WF=55: X=5:60SUB 40: T1=I: HR=HR+T1: XC=XC+200: HL=HL+T1 

2507 PRINT" {LEERT.2>SORGEN. AUSSERDEM HAT DICH{LEERT.2)DE 
INE{LEERT.5}"; 

2508 PRINT" {LEERT. 23SCHLAFMUETZISKEIT"3T15" H GEKOSTET"; 

2509 IF CT>1 THEN 2514 

2510 X=3:60SUB 40:CX=CX+1:A=480:605SUB 5 

2511 PRINT"{LEERT.Z}WAEHREND DU MIT ABGESCHALTETER{LEERT. 
87"; 

2512 PRINT" {LEERT.2>KUEHLUNG DASTEHST, 
{LEERT.3IVERFAULEN{LEERT.9}" 3 

2513 PRINT" "5CX5"% DEINER ORANGEN{LEERT.3>-"; 

2514 FOR I=1 TO 1500:NEXT:G60SUB 2100:60SUB 5650:60SUB 7 
: RETURN 


aa Ing. 3 


00888 01838 


2515 A=120: 60SUB 5: PRINT" {LEERT.2>NACH"35T2; 
"MEILEN IST JETZT DER"; 

2516 A=1680:60SUB 5: PRINT" {LEERT.2>TANK LEER — MR. ”’WHISKE 
Y’ - 50, 50,"; 

2517 A=200: 60SUB 5:PRINT"{LEERT.2>DIE STEUER IST HINTER D 


IR HER ---{LEERT.S}"3 

2518 WF=55:X=5:60SUB 40: T1=1+5: HR=HR+T1:XC=XC+10000 
:HL=HL+T1 

2519 PRINT" {LEERT.2>DANN ZAHLE $ 10.000.- FUER EIN FASS{L 
EERT.S>"3 


2520 PRINT"{LEERT.2}>DIESEL; UND WARTE MAL";T1;5" H DARAUF"; 

2521 FOR I=1 TOD 1500:NEXT:60SUB 2100:60SUB 5550: 60SUB 7 
: RETURN 

2550 REM: X=2: GOSUB40: IFI=1THENRETURN 

2552 GOSUB 7:60SUB 5600: A=240:60SUB 5 

2554 A=200: 60SUB 5 

2535 PRINT" <LEERT.2}DU WARST ZU LANGSAM. {LEERT.S>KONNTE N 
ICHT "5; 

25565 PRINT" {LEERT.Z>IBLOCKEN. {LEERT.4}DIE{LEERT. 2>MAFIATYP 
EN HABEN DIE ";z 

2557 PRINT" {LEERT. 23>HAENGERREIFEN{LEERT. 23 ZERSCHOSSEN. {LE 
ERT.2}ICH HOL’” "3; 

2558 PRINT"{LEERT.2>DICH RAUS. LAUF NACH HINTEN, 
MIR ENT- "; 

2559 PRINT" {LEERT.2}>GEGEN. {LEERT.14>DIE LADUNG SIEHST "; 

2540 PRINT"{LEERT.2}DU SOWIESO NIE WIEDER — BAD LUCK -{LE 
ERT.4}"; 

2541 GODSUB 5550:60T0 5450 

2550 REM: X=2: GOSUB40: IFI=1 THENRETURN 

2552 GOSUB 7:6B=0 

2554 A=200: G0OSUB 5 

2555 PRINT"{LEERT.2>MANN, BIST DU ?.$%; ! 
:#’ — VORNE STEHT "; 

25565 PRINT" {LEERT.2>DER FORD MIT STEUERFAHNDERN. {LEERT.2} 
WHISKEY "3; 

2557 PRINT" {LEERT.2>KANNST DU VERGESSEN. LAUF -{LEERT.2>I 
CH HOL_” . 

2558 PRINT"{LEERT.Z2>DICH RAUS. {LEERT.2>DA IST EIN FELDWEG 
HINTER "; 

25597 PRINT" {LEERT.23DER TANKSTELLE. {LEERT.S>DIE LADUNG SI 
EHST "3; 

2560 PRINT"{LEERT.2>DU SOWIESO NIE WIEDER — BAD LUCK -{LE 
ERT.4}"; 
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2561 


GOSUB 5650: 60T0 5450 


26800 GDSUB 58500: 60SUB 7:A=120: 60SUB 5 
PRINT"<LEERT.Z3MIST '{LEERT.23EIN REIFEN IST{LEERT.2 
>GEPLATZTILEERT.6)>"; 


2620 


2850 
2840 


T5=1:IF TS=O0 THEN 2710 
TC=TC-23T1T5: TS=0 


2850 X=2:60SUB 40: T=I: IF T=1 THEN T$="AEUSSEREN" 


2652 


IF T=2 THEN T$=" INNEREN" 


25560 PRINT" {LEERT.2}DU BRAUCHST":T:"H UM DEN"; 
2662 A=203:60SUB 5:PRINT T$;" REIFEN ZU WECHSELN"; =: HR=HR+T 
:HL=HL+T 


2870 


GOSUB 5650: RETURN 


2710 PRINT" {LEERT.2>DA DU{LEERT.2>DEINEN{LEERT.2>RESERVER 
EIFEN SCHON{LEERT.4>"; 


2712 


PRINT" {LEERT.Z3VERBRAUCHT HAST, 


{LEERT.3>"; 
2714 PRINT" {LEERT.2IEINEN{LEERT. 2>REPARATURDIENST {LEERT.3 
}YANZURUFEN, {LEERT.3}"; 
271& PRINT"{LEERT.2>DER DIR EINEN NEUEN{LEERT.2}REIFEN BR 
INGT. {LEERT.3>"3; 


2718 PRINT" {LEERT.2}DER SERVICE KOSTET 


ERT.4>"; 


2720 
2730 
2800 
2810 
2820 
28530 
2840 
2850 
2880 
2870 


2965 


2970 


2975 


PRINT" {LEERT.15>4 STUNDEN"; 
HR=HR+4 : HL=HL+4: XC=XC+400 : 60SUB 
REM 


AF= (3000+MF) £RND (0) :ON(RT+1)GOTO 2870, 2820,2910 


IF AF<3300 AND CR<>50 THEN 2960 
IF AF>4800 THEN 2985 

IF AF>45800 THEN 2970 

IF AF>3800 THEN 2975 

G60T0 2985 

IF AF<3400 AND CR<>50 THEN 2960 
IF AF>4900 THEN 2965 

IF AF>4700 THEN 2970 


BIST DU GEZWUNGEN, 


5650: RETURN 


IF AF>4200 THEN X=3:60SUB 40:60T0 2905 


G60T0 2985 

IF I=1 THEN 2975 

60T0 2980 

IF AF<4000 AND CR<>50 THEN 2950 
IF AF>5700 THEN 2955 

IF AF>5500 THEN 2970 

IF AF>4400 THEN 2980, 

60T0 2985 
CR=1:CR$=" {LEERT. 35}" RETURN 


5400 UND DAUERT{LE 


CR=50: CR$="B-L-I-Z-Z-A-R-D #& UNFALLGEFAHR! !{LEERT.43" 
: RETURN 
ER=10:CR$="NEBELBANK=: ACHTUNG SICHTWEITE NULL! 
: RETURN 


ER=-5:CR$="% LEICHTER # SCHNEEFALL # GLATTEIS %#" 


: RETURN 


2980 CR=4: CR$="NIESELREGEN VERSCHMIERT DIE SCHEIBEN" 


:RETURN 


2985 
2985 


29897 
2988 


3000 REM 


72 


IF DH>20 OR DH<& THEN 2987 


CR=3:CR$="SONNIG, NUR DIE STRASSE IST NASS{LEERT.4}>" 
: RETURN 


ER=-3:CR$="STERNENHIMMEL, DIE STRASSE IST NASS " 


RETURN 


MONIAO 


DER KAMPF HIT DEM SCHLAF WIRD MH 


2 M ZURUECK - EIN GRAUER FORD 


00715 





2600 Ab und an platzt ein Reifen; selte- 
ner, wenn man zu Beginn der Fahrt alle 
Reifen durch neue ersetzt hat. 


2650 Natürlich dauert es doppelt so lan- 
ge, wenn der innere der Zwillingsreifen 
gewechselt werden muß (T=1 oder T=2). 


2710 Teuer wird’s, wenn alle Reserverei- 
fen schon verbraucht sind (TS=0). 


2800 Die Wetterroutine: Der Zustand 
wird errechnet als Funktion von gefahre- 
nen Meilen (MF), der Route (RT) und einem 
Zufallsgenerator. Im Norden ist es 
schlechter als im Süden — aber gegen En- 
de der Fahrt wird es auch auf der Südroute 
unangenehm. 


2960 Normales Wetter. 


2985 Die Uhrzeit entscheidet, ob Sonne 
oder Sterne zu sehen sind. 


3000 Der Ermüdungszustand des Fah- 
rers ist Ergebnis einer Funktion von 1. der 
Zeit, die ohne Rast gefahren wird, und 2. 
dem zurückgelegten Weg. Je länger die 
Fahrt dauert, um so kürzer werden die Zei- 
ten zwischen den nötigen Ruhe- und 
Schlafpausen. 


3100 Zusätzlich zu den Straßen und 


Staatsbezeichnungen werden hier zur ge- 
naueren Wegmarkierung die eben durch- 
fahrenen Orte oder auch Grenzen ge- 
nannt. Diese Routine ruft gleichzeitig nach 
einem, den Ortsbezeichnungen entnom- 
menen Schlüssel (ZH) verschiedene öfter 
erscheinende Hindemisse auf. 


3145 Die Routine 3410 »Geschwindig- 
keitsblitzen« verwendet die Polizeisirene 
16200, die mit einer Tasteneingabe einge- 
schaltet wird. Da die anderen Routinen 
dieser Serie kein eigenes »Tasten«-Ende 
haben, sondern nach der Rückkehr aus 
dem Unterprogramm mit der Abfrage in 
3150 beendet werden (einschließlich An- 
stellen des Motorgeräusches), würde es 
im Fall von 3410 bedeuten, daß erst ein 2- 
facher Tastendruck das Programm wei- 
terschickt. Grob umständlich. Deshalb 
diese Zeile, die das Programm ohne neue 
Tastenabfrage zurückschickt. FO wird in 
3450 auf 1 gesetzt. 


3210 Andere Zeitzone. Das Programm 
wartet, bis der Fahrer diese Nachricht 
gelesen und verdaut hat (FOR... 
NEXT ....-Schleife), um dann stolz die Zeit- 
angabe zu verstellen (2100). 


3310 Auch im »Freien« Land gibt es 
mautpflichtige Straßen. 


3360 Ebenso fehlen die Baustellen nicht. 
Hier wird für die nächste Geschwindig- 
keitsabfrage eine von 55 auf 35 mph ver- 
minderte Höchstgeschwindigkeit ange- 
setzt. 


3410 Die erwähnte Photographierroutine 


3442 Sie wird auch bei normaler Ge- 
schwindigkeit aufgerufen — wenn keine 
Übertretung vorliegt, wünscht der freund- 
liche Computer Glück. 


3010 IF HL>19 DR HR/HS5>4 THEN CD=100:60T0 3012 

35011 G60TO 3020 

3012 CD$="{LEERT.2>TOTAL FERTIG! GLEICH KRACHT’S!!{LEERT 
23" :RETURN 

3020 IF HL<4 AND HR/HS<2.3 THEN CD=1:60T0 3022 

3021 GOTO 3050 

3022 CD$="{LEERT.2>DU BIST FIT UND TATENDURSTIG{LEERT.&}" 
»: RETURN 

30350 IF HL<8 AND HR/HS<2.5 THEN CD=2:60T0 3032 

30351 GOTO 3040 

3052 CD$="{LEERT.23NOCH GEHT’S DIR PRIMA{LEERT.13}I":RETURN 

3040 IF HL<12 AND HR/HS<=3 THEN CD=4:60T0 3042 

3041 GOTO 3050 

3042 CD$="{LEERT.2}>DU LANGWEILST DICH ZIEMLICH{LEERT.7}" 
: RETURN 

3050 IF HL<1& AND HR/HS<=3 THEN CD=-8:60T0 3052 

5051 G0TD 3050 

3052 CD$="{LEERT.2>SPEED ODER PAUSE- SO MUEDE BIST DU" 

3055 RETURN 

30650 CD=25:CD$=" (LEERT.2}DER KAMPF MIT DEM SCHLAF WIRD HA 
RT":RETURN 

3100 G60SUB 2:60SUB 2100: A=120:60SUB 5 

3105 PRINT" {BLK,S=U,5=#32.538,5=1}"3; 

35110 A=160:60SUB 5:PRINT" {C=W,RVSON, 
GRN} {LEERT.S1}END{LEERT.S3,RVSOFF,BLK,C=0>"; 

35115 PRINT" <S5=J,5=%#,.J58,S=K,RVSON,G6RN}"; 

5117 A=165:60SUB 5:PRINT MP$(RT,NP) ; "{RVSOFF,CYN}"; 

3120 51L.=55: ZH=ZM (RT,NP) »A=242:6G0OSUB 5 

5130 ON INT(ZH)GOSUB 3210,3310, 33650, 53410,3500,5710, 3860 

3140 NP=NP+1:IF INT(ZH)=8 THEN GOTO 5000 

5145 IF FO=1 THEN FO=-0:60SUB 16300:60SUB 7:60T0 1600 

3150 GOSUB 5550:60SUB 165300:60SUB 7:60T0 1600 

3210 PRINT" {CU=LI}ANDERE ZEITZONE, 

STELLE DIE UHR 1 H VOR"; 
3220 HR=HR+1:FOR I=1 TOD 1500:NEXT:GOSUB 2100:RETURN 


3510 T=100% (ZH-INT(ZH)) 

3520 PRINT"STOP! ZAHLE STRASSENGEBUEHR VON $:";INT(T); 
:XC=XC+HINT (T) :RETURN 

3360 IF RND(O)<ZH-INT (ZH) THEN RETURN 

3535685 PRINT" {CU=LI,BLK,S=-%.4,C=R,5=2.4,C=R,5=2.12,C=R, 
5=4.7,C=R,5=2.97"; 

33570 PRINT"{C=1} {S5=U,5=-%2,C=E,5=4.4,C=E,S5=#.2, 

S=I}> {LEERT.7,RVSON,GRN’SPEED LIMIT{C=1,RVSOFF}"; 

33571 A=322:60SUB 5:PRINT" {S5=-,RVSON,YEL}BAUSTELLE{RVSOFF, 
C=1,5=-} {LEERT.7,RVSON,GRN,LEERTISS{LEERT.2>MILES {RV 
SOFF,C=1}"3; 

3372 A=-5382:60S5UB 5:PRINT" (5=J,5=83.9,5=K,CYN}"; 

3380 SL=-35: RETURN 

3410 IF RND(O)<ZH-INT (ZH) THEN RETURN 

5415 IF 65=1 THEN RETURN 

3420 X=4:60SUB 40: T=SP-I-2 

3430 PRINT" DU WURDEST GERADE MIT";T;"MPH";:60SUB 25316 

34532 A=282:605SUB 5:PRINT"<CYN? {LEERT.11>FOTOGRAFIERT"; 

5440 IF T>SL+3 THEN 605UB 2322:RETURN 

5442 A=382:60SUB 5:PRINT"GLUECKWUNSCH! DIESMAL KEINEN AER 
GER"; 

3450 FO=1:60TD0 18200 
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DIENSTAG 


|__ LUFDSBURG 


BITTE 


Nm: 


3500 IF ZH=INT(ZHITHEN IF RND(O)<.S THEN 3507 
5502 IF RND{(O)<.5 THEN 3506 

3505 RETURN 

3506 IF RND (0) <ZH-INT (ZH) THEN RETURN 


35507 GOSUB 5660: X=5:60SUB 40: T=9500+WL+INT (TWF+(2581)) 

3520 PRINT"{BLK) {LEERT.2,S=N,C=Y.2,S=M,LEERT.2, 
CYN}GEWICHTSKONTROLLE{LEERT. 143"; 

3521 PRINT" {LEERT.2,BLK,S=N, RVSON, RED, S=\,LEERT.2,C=t, 
RVSOFF ‚BLK,S=M,LEERT, CYN}DU{LEERT. 2>MUSST{LEERT. 23HALT 
EN{LEERT. 143"; 

3522 PRINT" {LEERT. 2, BLK,C=H, RVSON, WHT>STOP{RVSOFF,BLK, 
C=N} {CYN’DIE{LEERT.2>WAAGE ZEIGT ALS GEWICHTLEERT.3I 


s 

3523 PRINT" {LEERT.2,BLK,S=M, RED, C=#, RVSON, LEERT.2,RVSOFF, 
S=\,BLK,S=N,LEERT,CYN}VON TRUCK, FAHRER, 
DIESEL UND{LEERT.3}"; 

3524 PRINT" {LEERT.2,BLK,LEERT,S=M,C=P.2,S=N,LEERT,CYN, 
LEERT}LADUNG"; T3 "KILO AN"; 

3560 T=INT (T-32000) 

s570 IF T<1 THEN A=480:G60SUB S5:PRINT"{LEERT.10>ALLES IN O0 
RDNUNG"; :RETURN 

3590 X=4:60SUB 40: T1=I+2 

3595 A=480:G60SUB S:PRINT" {LEERT.2}>DIE STRAFE FUER DIE UERB 
ERLADUNG {LEERT.7}"; 

3596 PRINT"{LEERT.2>IST $ 200 PLUS"; T1;"CENTS / KILO"; 

56500 XC=XC+200+4(T82T1)/100 

3610 A=-550: SOSUB S:PRINT"{LEERT.2>DU ZAHLST ALSO"; 
200+(T%#T1)/1003 RETURN 

35670 FOR I=12 TO 25:MP (RT, I)=MP (RT, TI) +200: NEXT 

35710 RETURN 

3880 IF CT>1 THEN RETURN 

3870 IF RND (0) <ZH-INT (ZH) THEN RETURN 

3875 GOSUB 5540 

3880 PRINT"DIE KUEHLANLAGE DEINES TRUCKS HAT VER-{LEERT.?2 
32": 


s882 PRINT"SAGT. DEINE LADUNG IST IN GEFAHR. DIE{LEERT.3} 


5 

35884 PRINT"REPARATUR{LEERT. 2}DAUERT {LEERT. 23 ZWEI {LEERT. 2) 
STUNDEN{LEERT.2>UND{LEERT.3}"; 

3886 PRINT" {LEERT. 10>KOSTET {LEERT. 23% 100"; 

59700 X=4:GOSUB 40: CX=CX+1: HR=HR+2: HL=HL+23 XC=XC+100 

3910 60SUB 2100: RETURN 

4000 60SUB 5500: POKE 55281,0:A=280:60SUuB 5 

4010 PRINT" {BLU> {LEERT.4>SDEBEN HAST DU DEINEN TRUCK{LEE 
RT.8>"; 

4012 PRINT" {LEERT.9>ZU SCHROTT GEFAHREN{LEERT.12>"; 

4013 PRINT" {LEERT.407"; 

4014 PRINT" {LEERT.4>ABER AERGER DICH NICHT DARUEBER{LEERT 
.5)"; 

401& PRINT" {LEERT.3>DICH HAT’S NAEMLICH AUCH ERWISCHT {LEE 
RT.4}7" 

4018 PRINT" {LEERT.9,RVSON, VEL,LEERT,S=X, 
LEERT.2>DU BIST TOT{LEERT.2,5=X,LEERT,RVSOFF, 
LEERT.11}>"; 
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3500 An manchen Staatsgrenzen gibt es 
Ladekontrollen (diese Routine wird nur an 
den Grenzen der entsprechenden Staaten 
aufgerufen — die Vermerke sind in den 
Grenznamenstrings enthalten). 


3507 Zeile 5660 verringert das Motorge- 
räusch bis zum Abstellen und macht das 
»Pffft« der Luftdruckbremse. Der Truck 
wird mit 9500 kg berechnet, der Tankin- 
halt zum aktuellen Stand. 


3860 Nur bei Orangenfracht (CT=1) kann 
mit dieser Routine ein Ausfall der Kühlan- 
lage Ärger und Kosten verursachen. 


3875 Der Truck wird wieder zum Halten 
gebracht (5660). 


3910 Die Zeitangabe wird um die Repa- 
raturdauer weitergestellt (2100). 


4000 Unfall; das Ende der Fahrt 


5000 Endlich am Ziel: Die Zeit wird ge- 
stellt (2100), ein Wolkenkratzer erscheint 
(5700), das Steuerrad wird neu gezeich- 
net (7 hatte bis auf den LKW-Rahmen das 
ganze Bild gelöscht), die Armaturenanzei- 
gen müssen auf den letzten Stand ge- 
bracht werden (1550). 


5001 Auch wenn es vorher schneite, bei 
der Ankunft ist schönes Wetter und blauer 
Himmel (POKE 53281 ,6). 


5003 Verschiedene Frachten zu ver- 
schiedenen Empfängern — Orangen zum 
Großmarkt, Whiskey zur Disco, und Post- 
säcke — na, wohin schon! 


5030 Bei Verspätungen verfaulen Teile 
der ÖOrangenladung (Minderung der 
Frachteinnahmen), oder gesalzene Stra- 
fen werden fällig. 


4020 A=720:G0OSUB 5 

4022 PRINT" {LEERT.S}#{LEERT.7}#{LEERT. 15}78{LEERT.SIR{LEER 
T.6>8 "; 

4024 PRINT" {LEERT.4>8{LEERT.18?7%2{LEERT.S38{LEERT.9>"; 

4025 PRINT" {LEERT.S>%8{LEERT.9F>#{LEERT.S?K{LEERT. 163%"; 

4050 GOSUB 5550:60T0 5450 


TBEM 
Pre 


Nach EINE FAHRT > ) ' 


—.. 





5000 GOSUB 7:6GDSUB 2100:60SUB 5700:60SUB 10100:60SUR 1550 
:A=125:G0OSUB 5:XC=INT (XC) 


5001 POKE 53281,&:PRINT" {RVSON, RED, S=U,5=#2.27,5=I}"; 
5002 A=165:50SUB 5:PRINT" {RVSON,RED,S=-} {LEERT.26,5=-}"; 


5003 IF CT=1 THEN A=1658:60SUB 5: PRINT" {RVSON, 
WHT}NEW YORK GROSSMARKT"; 
5004 IF CT=2 THEN A=158:60SUB 5:PRINT" {RVSON, 
WHT}NEW YORK{LEERT.2>STUDIO 54"; 
5005 IF CT=3 THEN A=168:60SUB 5:PRINT" {RVSON, 
WHT3NEW YORK{LEERT.2}U.S.POST"; 
50056 A=2053:60SUB 5:PRINT" {RVSON,C=7,5=-} iLEERT.28,S=-, 
RVSOFF}"3 
5008 A=243:60SUB S5:PRINT" {RVSON, C=7,5=-,LEERT} {LEERT.25, 
S=-,CYN}"; 
5009 A=244:605UB 5: PRINT" {C=7,RVSON}KOSTEN BIS JETZT 
:s S"sXC; 
5010 A=283:60SUB 5:PRINT" {RVSON, S=-} {LEERT.25,5=-}"; 
5012 A=323:60SUB 5:PRINT" {RVSON, S=-} {LEERT.28,5=-}"; 
5014 A=3653: 60SUB 5: PRINT" {RVSON, S=-} {LEERT.25,5=-}"; 
5016 A=4053: 60SUB 5: PRINT" {RVSON, C=Q, S=#.27,C=W}"; 
5018 A=443: 60SUB 5: PRINT" {RVSON, S=-} {LEERT.28,S=-}"; 
5020 A=483: 60SUB 5:PRINT" {RVSON, S=-} {iLEERT.26, S=-}"; 
5022 A=5235: 60SUB 5: PRINT" {RVSON, C=Q, S=#.27,C=W}"; 
5024 A=563:60SUB 5: PRINT" {RVSON, S=-} {LEERT.28,5=-}"; 
5025 X=7-CT:60SUB 40: VD=(1+17-CT) +5) /5 
5025 A=6053:6GDSUB 5: PRINT" {RVSON, S=J,5=%2.27,5=K}"3 
5050 ON CT 60T0 5100, 5200,5300 
5100 IF HR>80 THEN X=(HR-80) /5:60S5UB 40:CX=CX+I:60T0 5110 
5101 IF CX>0 THEN 5110 
5102 GOTO 5150 
5110 A=284:60SUB 5: PRINT" {RVSON}LEIDER SIND INZWISCHEN"; 
CX3 "X%”3 
5111 X=3:60SUB 40: VX=INT(CX%.O182WL% (VD+I)) :XC=XC+VX 
:WL=WL-CX2.O1:WL 
51153 A=324:60SUB 5:PRINT"DER ORANGEN VERFAULT. {LEERT.2}DA 
5"; 
5115 A=354:60SUB 5: PRINT" {LEERT.2>KOSTET DICH : Ss",VvXx 
5150 REM 
5151 XT=INT (WL#VD/10) :A=444:60SUB 5 
»PRINT" {RVSON? FRACHTGELD{LEERT.2): $";XT;z 


75 


5160 XT=INT(XT-XC)=z IF XT<O THEN 5470 

5170 A=484:GOSUB 5: PRINT" {LEERT. 2}G6ESAMTGEWINN: $":XT; 
:60T0 5451 

5200 IF HR>80 THEN A=284:60SUB 5:60T0 5202 

5201 60T0 5210 

5202 PRINT"DIE VERSPAETUNG WIRD TEUER-"; 

5204 T1=500+INT (1008RND (0) ) :A=323:G0SUB 5 
:PRINT HR-80; "STUNDEN A $"; T15"=$"; 

5206 PRINT (HR-80) #T13 :XC=XC#( (HR-80) KT1) 

5210 A=364:60SUB 5: PRINT" {LEERT.2>GESAMTKOSTEN: $":XC; 

5220 XT=INT (VD&WL) :A=444:GOSUB 5: PRINT" {LEERT. 2>FRACHTGEL 
D{LEERT.2>2 $"sXT 

5250 XT=XT-XC: IF XT<O THEN 5470 

52355 A=484:60SUB 5:PRINT" {RVSON} BESAMTGEWINN: $";XT;3 
:G0TO 5451 

53500 VD=VD#.7:XT=INT (WL&VD/10) :A=284:GOSUB 5 

5501 PRINT"KEIN WUNDER, {LEERT.2)IDASS DIE POST"; 

5502 A=324:60SUB 5:PRINT"KEINE FAHRER HAT. DIE FUHRE"; 

53505 A=364:60SUB 5:PRINT"BRINGT FRACHTGELD: $";XT; 

5504 A=444:G60SUB 5: PRINT"GESAMTKOSTEN{LEERT.5}:$"3XC; 

5510 XT=XT-XC: IF XT<O THEN 5470 

5512 A=484:60SUB 5:PRINT"BLEIBT NUR UEBRIG: $";XT; 
:60T0 5451 

5450 6W=INT (GW-XC) 

5451 POKE W1,0:FA=FA+1:GW=INT (GW+XT) :GOSUB 5452:60T0 5455 

5452 A=0:560SUB 5: PRINT" {RVSON, C=3, S=U, S=427${5=%, 
S=kK} {LEERT.29,5=J,5=27$(5=3,5=1}7"; 

54535 A=7:60SUB 5: PRINT" {RVSON, C=3}KONTO: $"; GW; :A=24 
: SG0OSUB 5: PRINT"FAHRTEN: "FA; :RETURN 

5455 A=-554:60SUB S:PRINT" {RVSON,GRN> {LEERT.7}NOCH EINE F 
AHRT. ? "3:D=1:60SUB 11000 

5460 IF DIs="J"THEN 20 

5462 IF DI$="N"THEN 5465 

5463 G60T0 5455 


su0UDBYE -— KEEP UN TRUCKEM 





54685 POKE 55281 ,6:PRINT"{CLEAR?>"; 


5465 A=328:60SUB 5:PRINT" {RVSON,C=65?600DBYE —- KEEP ON TRU 
CKING"::POKE W1,0:POKE W,o 

5457 A=920: 60SUB SrEND 

5470 60SUB 5650: 60SUB 5700: 60SUB 10100: A=200: 60SUR 5 

5472 PRINT" {LEERT.2}MIESE FUHRE'!"; 

5474 A=240:6GOSUB 5: PRINT" {LEERT. 2>TOTALVERLUST 
= $ ";ABS(XT); 

5480 IF XT>O THEN 5450 

5490 A=320: GOSUB 5: PRINT" <LEERT} {LEERT.2,RVSON, 
LEERT}DU BIST BANKROTT !tı {RVSOFF}"3; 

5500 A=440: 60SUB S:PRINT"{LEERT.2>DEIN TRUCK GEHDERT DER 
BANK. {LEERT}"; 

5510 60SUB 5550:60T0 5451 
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5465 Ende des Spiels. Der Bildhinter- 
grund wird blau eingstelit (POKE 
532816), und die Seite gelöscht (CLEAR). 


5466 In der Mitte steht »Good-bye«, und 
alle Töne und Geräusche werden abge- 
stellt (POKE W1 und W auf Null). 


5467 Der Cursor, der bei Programmende 
»READY« schreibt, wird ans untere Ende 
des Bildes gesetzt. Das sieht sauberer 
aus. 


a 22,7% 


5600 Unfallroutine: 7 löscht die Bilder 
und Schriften im Fenster des Truck, 
16120 ist das Explosionsgeräusch; dann 
wird ein großes »W H A M« gezeichnet. 


5616 Mit einer FOR NEXT Schleife wer- 
den in kurzer Folge die 8 Hauptfarben des 
Bildhintergrundes gebildet (Unfall-Explo- 
sionssimulation). 


5650 Diese Routine wartet mit GET auf 
einen Tastendruck, um dann im Program- 
mablauf fortzufahren. 5657 erzeugt einen 
»Computer«-Doppelton. Dann wartet 
5601 mit GET. Nach einem Tastendruck 
erzeugt 5653 einen anderen Doppelton. 
Diese akustischen Signale machen den 
Spielablauf leichter und flüssiger. 


5660 Das Motor-Fahrgeräusch wird in 
Stufen auf Standgeräuschhöhe zurückge- 
führt. 


5700 Der Wolkenkratzer in New York aus 
dem letzten Bild 





28 





5600 GOSUB 7:60SUB 16120: A=205:60SUB 5 

5602 PRINT"{YEL}? #{LEERT.4}# 8{LEERT.4}8{LEERT.5>)8 {LEE 
RT.S>8{LEERT.107"; 

5603 PRINT" <LEERT.A>#ILEERT.BIKLLEERT.4>)8CLEERT.BSIRCLEERT 
.123"3 

5604 PRINT"3{LEERT.2,C=+,LEERT,C=+,LEERT,C=+, 
LEERT}#{C=+} {C=+) {C=+.3) 8{C=+) {LEERT.2,C=+, 
LEERT.S}?#{LEERT.8B}"3; 

5605 PRINT" {LEERT.3,C=+,LEERT,C=+}#{C=+} {C=-+) {C=-+) #{C 
=+} {C=+}3 (C=+.2> {C=+.2> (LEERT.2>3{LEERT.11}>"; 

5508 PRINT" *& {C=+) {C=+) {C=+)% {C=-+.3) (C=-+.I8 {C=+) 
iC=+} {iC=+) {LEERT.A}>R8{LEERT.9)>"3; 

56810 PRINT"{LEERT.S,C=+,LEERT,C=+,LEERT,C=+,LEERT.2,C=+, 
LEERT,C=+,LEERT.2,C=+,LEERT,C=+,LEERT.2,C=+,LEERT.S, 
C=+,LEERT}#{LEERT.13?7"; 

5612 PRINT"{LEERT.2>%8(C=+.5} {C=+} {C=+)38 {C=+) {C=-+) ({ 
C=+}> #8 {C=+} {LEERT.S>R{LEERT.107"; 

5614 PRINT"#{LEERT.4>%#{LEERT. S’IS{LEERT.FIRLLEERT. TIR{LEER 
T.123"3 

5616 FOR LY=0 TO 15 STEP 2:POKE 53281,LY:FOR I=1 TO 100 
:NEXT I=:NEXT 

5620 PRINT" {CYN}":POKE 53281,&5:RETURN 


5650 GOSUB 5657 

5651 GET I$:IF I$=""THEN 5651 

5652 REM 

5653 POKE W,17:POKE H,255:POKE AS,2S5:POKE L,7 

5654 POKE FH,155:POKE FL,10:FOR I7=1 TO 30:NEXT 
:POKE FH,205:POKE FL,10 

5655 FOR 17=1 TO S50:NEXT:PODKE W,O 

5656 RETURN 

5657 POKE W,17:POKE H,255:POKE AS,25:POKE L,7 

5658 POKE FH,105:POKE FL,10:FOR 17=1 TO 30:NEXT 
:POKE FH,155:POKE FL,10 

5659 FOR I7=1 TO 50:NEXT:PODKE W,O:RETURN 

5660 FOR I=INT(SP/20)T0 1 STEP-1:POKE F2,I:POKE Fi,1 
:FOR X=1 TO 100:NEXT:NEXT 

5661 FOR I=1 TO 1000:NEXT:POKE W1,0:60SUB 16130 

5662 RETURN 

5700 A= 36:60SUB 5: PRINT" {RVSON,CYN, S=U,C=%*, RVSOFF}"; 

5701 A= 76:60SUB 5: PRINT" {RVSON,CYN,S=-, C=K,C=#,RVSOFF}"; 

5702 A=116:60SUB 5:PRINT" {RVSON,CYN,S=-,C=K.2,C0=#, 
RVSOFF}"; 

5703 A=120:60SUB 5:PRINT" {LEERT.32,RVSON, YEL,S=Q,C=U,S=U, 
5=%.4,C=W,RVSOFF}"; 

5704 PRINT" {LEERT.32,RVSON,VEL}E{RVSOFF} {RVSON,CYN,S=-, 
C=K.4,5=-,RVSOFF}"; 

5706 PRINT" {LEERT.32,RVSON, YEL>M{RVSOFF} {RVSON,CYN, 
S=-} {LEERT.3,S5=-,RVSOFF}"; 

5708 PRINT" {LEERT.32,RVSON, YEL>P{RVSOFF} {RVSON,CYN,S=-, 
C=K.4,5=-,RVSOFF}"3; 

5710 PRINT" {LEERT.32,RVSON, YEL}I{RVSOFF} {RVSON,CYN, 
=-} {LEERT.3,S=-,RVSOFF}"; 

5712 PRINT" {LEERT.32,RVSON, YEL>R{RVSOFF} {RVSON,CYN,S=-, 
C=K.4,5=-,RVSOFF}"3 
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5714 PRINT" {LEERT.32,RVSON, YEL}YE{RVSOFF} {RVSON,CYN, 
S=-} {LEERT.3,S=-,RVSOFF}"; 
5716 PRINT" {LEERT.32,RVSON, YEL,LEERT,CYN, S=U,C=E,S=#.4, 


C=W, RVSOFF}"3 

5718 PRINT" {LEERT.32,RVSON, VEL?S{CYN, S=-,S=E.5,5=-, 
RVSOFF}"; 

5720 PRINT" {LEERT.32,RVSON, YEL}T{CYN, S=-,C=K.5,S=-, 
RVSOFF}"; 

5722 PRINT" {LEERT.32,RVSON, VEL}A{CYN, S=-} {LEERT.4,S=-, 
RVSOFF}"; 

5724 PRINT" {LEERT.32,RVSON, YEL}T{CYN, S=-,C=K.5,5=-, 
RVSOFF}"3 

57265 PRINT" {LEERT.S2,RVSON, VEL}E{CYN, S=-} {LEERT.4,S=-, 
RVSOFF}"; 

5728 PRINT" {LEERT.32,RVSON, YEL,LEERT,CYN,S=-,C=K.5,8=-, 
RVSOFF}"3; 

5730 PRINT" {LEERT.32,RVSON, YEL>B{CYN, S=-} {LEERT.4,S=-, 
RVSOFF}"; 


5740 RETURN 
64656 A=920:60SUB 5:END 


97050 DATA 
9040 DATA 
9050 DATA 
70680 DATA 
7070 DATA 
9080 DATA 


21,2850 
90, BARSTOW, 1-15 
226, NEEDLES, I-40 
440, FLAGSTAFF , I-40 
620, SALLUP, I-40 

760, ALBUQUERQUE, I-40 
930, TUCUMCARI , I-40 


CALIFORNIA, 7.80 
CALIFORNIA, 1 
CALIFORNIA, 3.65 
ARIZONA,5.5 
NEW MEXICO,3.35 
NEW MEXICDO, 1 


1040, AMARILLO, I-40 TEXAS, 7.80 
1155, 0KLAHOMA (GRENZE), I-40 TEXAS,5.5 
1305, OKLAHOMA CITY, I-40 OKLAHOMA, 2.65 


1550, MISSOURI (GRENZE), GRENZWEG OKLAHOMA, 2.40 


1815,ST. LOUIS, I-44 MISSOURI,O 

1980, TERRE HAUTE, I-70 ILLINOIS, 5.5 

2050, INDIANAPOLIS, I-70 INDIANA,O 
2115,0HIO (GRENZE) ,I-70 INDIANA, 1 

2220, COLUMBUS, I-70 0H10,5.5 

2350, WHEELING WEST VIRGINIA, I-70 OHIO, 


2410,NEW STANTON, I-70 IN PENSYLVANIA,6.75 
2570, HARRISBURG, GRENZE PENSYLVANIA, 2.95 
2760,NEW JERSEY (GRENZE) „GRENZE PENSYLVANIA, 


2840, HOLLAND TUNNEL,I-70 NEW JERSEY,2.40 
7799,NEW YORK, NEW YORKER STRASSEN, O 
18, 2710 


90, BARSTOW, I-15 CALIFORNIA,7.80 

245,LAS VEGAS, I-15 NEVADA, 1 

365, UTAH (GRENZE) ,I-15 ARIZONA,O 
500,ENDE INTERSTATE HIGHWAY,I-15 UTAH, 
555, SALINAS, US-89 UTAH, 4.50 

760, GRAND JUNCTION, I-70 UTAH,5.40 
1010, DENVER, 1-70 COLORADO, 1 

1190,NEBRASKA (GRENZE) ,I-7& COLORADO, 1 
1450, OMAHA, 1-80 NEBRASKA,S5.50 

1590, DESMOINES, 1-80 IOWA,4.75 

1750, ILLINOIS (GRENZE) ,I-80 IOWA,5.60 
1910, GARY, 1-80 ILLINOIS, 2.50 


2050,0HIO (GRENZE) ,GRENZWEG INDIANA,2.45 


2215, CLEVELAND, SRENZWEG OHIO,2.80 
2280, PENSYLVANIA (SRENZE),I-80 OHIO, 
2515,EAST STROUDSBERG, I-80 PENSYLVANIA,3.33 


2675, WASHINGTON BRIDGE, I-80 NEW JERSEY,2.20 
7999,NEW YORK,NEW YORKER STRASSEN, O 


25, 3120 
75,PALM SPRINGS, I-10 CALIFORNIA,O 
225,BLYTHE,I-10 CALFORNIA,1 

375, PHOENIX, I-10 ARIZONA,O 

495, TUCSON, I-10 ARIZONA, 7.90 
650, LORDSBURG, I-10 ARIZONA,S.75 
795,EL PASO,I-10 NEW MEXICO,O 

965, PECOS, I-10 TEXAS,1 

1080, ODESSA, I-20 TEXAS,O 


9030 Straßen- und Ortsangaben in DATA 
Zeilen. 

1. Gefahrene Meilen — hiermit wird bei der 
Abstimmung mit den tatsächlich gefahre- 
nen Meilen der Ortsname aufgerufen; 
2. Ortsname; 9. Straßenbezeichnung; 
4. Staatenname; 5. Wert zur Berechnung 
des Sonderroutinenaufrufs (Waage, Zeit- 
zone etc.). 


9030 Mittlere Route 


9255 Nordroute 


9450 Südroute 


9810 Diese Routine schiebt eine Schrift- 
zeile von links ins Bild. Erst der letzte 
Buchstabe des Textes (hier der Erschöp- 
fungsgrad des Fahrers), dann die 2 letz- 
ten, dann die 3 letzten usw. 


9900 Falls der Whiskeytransport gewählt 
wurde, wird mit den folgenden Routinen 
die Transport- und Verfolgungssituation 
simuliert. 


9901 Zu Beginn der Fahrt meldet sich der 
Blocker. 


9904 In 40 wird eine 10er-Zufallsfunktion 
berechnet. 


9911 Auf den ersten 1500 Meilen wird es 
noch nicht gefährlich. Der Mafia-Lincoln 
bleibt hinten. 


9920 Freie Strecke — man kann so 
schnell fahren, wie es der Zustand des 
Truck erlaubt (32 MPH), ohne von der Poli- 
zei erwischt zu werden (Variable GS auf 1 
gesetzt, verhindert im Programm den Auf- 
ruf der Polizeiroutine). 


9940 Ein Aufruf dieser Routine zeigt in 
den letzten 24 Stunden die verbleibende 
Zeit an. 


9540 DATA 1250, ABILAINE, I-20 TEXAS, 3.80 

9550 DATA 1439, DALLAS, I-20 TEXAS,O 

9560 DATA 1610,LOUSIANA (GRENZE) , I-20 TEXAS,5.00 
9570 DATA 1785, VICKSBURG, I-20 LOUSIANA,O 

9580 DATA 1965, ALABAMA (GRENZE) ,I-20 MISSISSIPPI,1 
9590 DATA 2100, BIRMINGHAM, I-20 ALBAMA,4.25 

9600 DATA 2200,GEORGIA (GRENZE), I-20 ALABAMA,O 
9610 DATA 2255, ATLANTA, I-20 GEORGIA,O 

9620 DATA 2320,CAROLINA (GRENZE) ,I-85 GEORGIA,S5.75 


98530 DATA 2585, GREENSBORO, I-85 NORTH CAROLINA,3.80 
7640 DATA 25880, VIRGINIA (GRENZE), I-85 NORTH CAROLINA,7.85 
96850 DATA 2775, RICHMOND, I-85 VIRGINIA,O 


9660 DATA 2880, WOSHINGTON D. C.,I-95 VIRGINIA,O 
9670 DATA 2920, BALTIMORE, I-95 MARYLAND, 2.30 
9680 DATA 2990,NEW JERSEY (GRENZE), I-95 DELAWARE, 


2.25 

9690 DATA 3110,HOLLAND TUNNEL,GRENZE NEW JERSEY,2.40 

9700 DATA 9999,NEW YORK,NEW YORKER STRASSEN, O 

9800 A=320:60SUB 5:G0SUB 3000 

9805 PRINT"{C=7} {LEERT.39}"5:A=320:60SUB 5 

9810 FOR I=1 TO 36:PRINT RIGHT$(CD$, I); " {CU=AUF}"; 
CHR$ (13) 5 :NEXT: RETURN 


97900 A=488: 60SUB S:PRINT" {C=3}"; 
INT" {BLK}"; 


:IF CR>S3 AND Ci1=0 THEN PR 


97901 IF CT=2 AND MF<20 THEN PRINT"HI —- ICH BIN JOE, 
{LEERT.S>DEIN BLOCKER";:G6OTDO 99053 

97902 GOTO 9904 

9903 A=528:605UB 5:PRINT"MEIN FRISIERTER CHEVVY MACHT 220" 
:RETURN 

7904 65=0: X=10:605UB 40 

99705 ON I GOTO 9910, 9915,9920, 99650, 9930, 9940,9950,9965, 
97920, 9950 

9710 IF CT<>2 THEN RETURN 

9911 IF MF<1500 THEN PRINT"EIN SCHWARZER LINCOLN FOLGT UN 
"»:RETURN 

97712 65=3:PRINT"GIB GAS! DER LINCOLN HOLT AUF"; 

977153 A=528: 60SUB 5:PRINT"ICH BLOCKE - ACHTE AUF POLIZEI"; 
» RETURN 

9915 IF CT<>2 THEN RETURN 

9916 IF MF>1500 THEN PRINT"BLOCKEN KANN ICH NOCH"; 
:60T0 9918 

9917 RETURN 

97718 A=528:60SUB 5:PRINT"DER LINCOLN IST WEG"; :RETURN 

99720 65=1:PRINT"TRUCK VORNE FUNKT: {LEERT.10}7"; 

7925 A=528:60SUB 5:PRINT"FREIE STRECKE — VOLLGAS!'{LEERT.4 
>"; RETURN 

7750 RETURN: A=488:60SUB 5:PRINT"{LEERT.28}7"; 

9935 A=528:60SUB 5:PRINT" {LEERT. 28?" ; RETURN 


9940 H2=80-HR: IF H2<25 THEN 9945 

9941 Zi=0: H2=80-HR: IF H2<25 THEN 9945 

9942 PRINT"NOCH";H2;"H BIS ZUM TERMIN... "3:RETURN 

9945 IF H2>0 THEN PRINT"DU HAST NUR NOCH" ;H2; 
"4 ZEIT{LEERT.2}3"; RETURN 

9946 RETURN 

9950 65=2:PRINT"TRUCK VORNE FUNKT: {LEERT.3}SMOKEY "; 

9955 A=528:60SUB S5:PRINT"LIEGT AUF LAUER - BLEIB COOL "; 
: RETURN 

9960 IF CT<>2 THEN RETURN 

9961 IF MF<1500 THEN PRINT"2 M ZURUECK - EIN GRAUER FORD"; 
: RETURN 
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7962 6B=1:PRINT"FAHR’ WEITER - DER FORD AN DER"; 

97963 A=-528: 60SUB S:PRINT"TANSTELLE — STEUERBEAMTE -— ICH"; 

7764 A=568:60SUB 5:PRINT"LENK” SIE AB" RETURN 

9965 IF CT<>2 THEN RETURN 

97966 IF MF>1500 THEN PRINT"ABLENKUNG GELUNGEN. DER"; 
:60T0 9958 

97967 RETURN 

79768 A=528:60SUB 5:PRINT"FORD IST AUF DEM WEG NACH HAWAII 
":6B=0: RETURN 

10000 POKE 535280, 0:PRINT"{CLEAR}Y"; 

10010 PRINT" {BLK,RVSON} {RVSOFF,S=\} {LEERT.13,BLK,S=U, 
S=#. 2,C-E,5=$.2,S=I,LEERT.13,C=#,RVSON,LEERT.23"; 

10020 PRINT" {RVSON} {RVSOFF,S=\} {LEERT.14,BLK,S=-,C=\, 
LEERT,C=-,C=\,C=+,5=-,LEERT.14,0=%,RVSON,LEERT, 


10025 PRINT" {S=\} {LEERT.15,BLK,S=J,5=#.5,S=K,LEERT.15, 
C=$}"; 

10030 PRINT" {CU=AB. 15, C=4,RVSON, S=U,5=$.38,8=1}"; 

10032 PRINT" {RVSON, BLK,C=\,S=-} {LEERT.4,5=2.4,5=W,5=#.4, 
LEERT.S,C=9.3,LEERT.6,0=9.3,LEERT.5,S=-,C=\3"; 

10054 PRINT" {C=+,5=-} {LEERT.8,S=-,LEERT.7,5=%.5, 
LEERT}MACK {S=x.5}> {LEERT.2,5=-,C=+3>"; 

100538 PRINT" {S=2,5=K} {LEERT.8,S=-,LEERT.9,C=T.3,LEERT.6, 
C=T.3,LEERT.S5,5=J,5=$3"; 

10040 PRINT" {LEERT.403"; 

10045 PRINT" {LEERT.407"; 

10050 PRINT" {LEERT.39>"; 

10050 PRINT" {CU=AUF. 3, BLK?"=PRINT TAB (3) "{RVSON, 
S=UFBAL{S=I3"3 TAB(13) " (S=UIMPH{S=13"; 

TAB (25) " {(S=U3MILES{S=I}"; 

100585 PRINT TAB (31) " (S=U} TO{S=#)NY{S=I}>"; 

100665 PRINT" {CU=RE.2>"; 

10070 PRINT SPC (3) " (5=-319018=-) "3 SPC (5) " (5=-300015=-3"; 
SPC (5) " {5=-}00000 {S=-}"; 

10075 PRINT SPC (1) * (S=-)00000 (5=-}"; 

10080 PRINT SPC (5)" (5=J,8=8.3,5=K} "3 SPC (5) "(5=J,5=%.3, 
ok)"; SPC (5) "(5=9,5=8.5,5=K}"5SPC(1)"(5=J,9=4.5,5=K, 
RVSOFF}"; 

10085 POKE 2023, 224:POKE 56295,0:60SUB 10100 

10090 RETURN 

10100 REM 

10110 A=649: GOSUB S: PRINT" {BLK,C=D,C=1,RVSON} {LEERT.2, 
RVSOFF,C=I,C=F}"; 

10115 A=687: 60SUB 5: PRINT" {C=D, RVSON} iC=1.2, 

RVSOFF} {RVSON,S=-, RVSOFF} {RVSON,C=1.2} {RVSOFF,C=F}"; 

10120 A=727:G60SUB 5: PRINT" {RVSON} {RVSOFF,C=V}"; 

SPC (5) " {RVSON, S=-, RVSOFF} "3 SPC (3) "{C=C, 
RVSON} {RVSOFF}" 3 :PRINT" {CYN} "RETURN 

10200 X=6:60SUB 40:0N I G0TO 10210, 10300, 10350, 10400, 
10450, 10500 

10210 A=592: 60SUB 5: PRINT" {PUR, S=U,S=#2.6,5=1}"; 

10215 A=632: 60SUB 5: PRINT" (S=-, WHT, RVSON} {S=U,C=0.2, 
S=I} {RVSOFF ,PUR,S=-}"; 

10220 A=672:GOSUB 3: PRINT" {S=-, WHT, RVSON} TEXACD{RVSOFF, 
PUR,S=-}";3 

10225 A=712:60SUB 5: PRINT" (PUR, S=-, RVSON, WHT} 15=J,C=U.2, 
S5=K} {RVSOFF ‚PUR, S=-}"3 RETURN 

10500 A=440: 60SUB S:PRINT" {C=7,5=2.3,5=I) {LEERT.4}"; 

10510 A=480: 60SUB 5:PRINT" {RVSON, YEL} {LEERT.3,RVSOFF,C=7, 
S=I,LEERT}"; 

10515 A=520: 60SUB S5:PRINT" {RVSON, YEL}ELL {RVSOFF,C=7, 
S=-} "; 

10520 A=560: 60OSUB 5: PRINT" {RVSON, YEL} {LEERT.S3,RVSOFF,C=7, 
S=-,LEERT}"; 

105325 A=600: 60SUB 5: PRINT" {RVSON, YEL}THE {RVSOFF,C=7, 
S=-} "; 

105350 A=540: 60SUB 5:PRINT" {RVSON, YEL}EST {RVSOFF,C=7, 
S=-} "; 

10335 A=680: 60SUB 5: PRINT" {RVSON, YEL>OIL {RVSOFF,C=7,S=-, 
CYN? "RETURN 

105350 A=592: 60SUB 5: PRINT" {BLK,S=U,5=%2.5,5=I)} ”. 

10355 A=632:G60SUB 5: PRINT" (S=-, RVSON, RED} {LEERT.4,RVSOFF, 
BLK,S=-,LEERT}";z 

105680 A=572:60SUB 3: PRINT" (S=-, RVSON, WHTIEXXON{RVSOFF , BLK, 
S=-} "3 
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10000 Das Truck-Fahrerhaus mit Arma- 
turen, Rückspiegel etc. wird gezeichnet. 


10200 Verschiedene Straßenschilder 


10500 Ein Kaktus am Straßenrand kann 
natürlich nur auf der Südroute und dort 
auch nur auf den ersten 2700 Meilen er- 
scheinen (Grenze North Carolina — Vir- 
ginia). 


10565 A=712:60SUB 5:PRINT" <(S=-,RVSON,RED} {LEERT.4,RVSOFF, 
BLK,S=-,LEERT}"3 RETURN 

105370 A=600: 60SUB 5: PRINT" {RVSON,VYEL}THE {RVSOFF,C=7, 
S=-} ". 

10575 A=840:60SUB 5: PRINT" {RVSON, YEL}EST {RVSOFF,C=7, 
S=-} "5 

10580 A=580: 60SUB 5: PRINT" {RVSON,YEL}OIL {RVSOFF,C=7,S=-, 
CYN} ";:RETURN 

10400 A=440:60SUB 5:PRINT" {BLK,C=R,5S=%2,C=R,5=#,C=R,C=5}"; 

10410 A=480: 60SUB 5:PRINT" {RVSON,C=7,5=-32.4,5=I1,RVSOFF,BLK, 

=W}"; 

10415 A=520:60SUB 5:PRINT" {RVSON,C=7,5=-}V C{S=-,RVSOFF, 
BLK,S=-}"; 

10420 A=580:60SUB 5:PRINT" {RVSON,C=7,5=-}R 0{15=-,RVSOFF, 


BLK,C=W}"; 

10425 A=500: 6G0SUB 5:PRINT" {RVSON,C=7,5=-}1I M{S=-,RVSOFF, 
BLK,S=-}"3 

10430 A=540:60SUB 5: PRINT" {RVSON,C=7,5=-}L P{iS=-,RVSOFF, 
BLK,C=W}"; 


10435 A=880: 60SUB 5:PRINT" {RVSON,C=-7,5=-J,S5=#) U{S=-, 
RVSOFF,BLK,S=-,CYN}"3 :RETURN 

10450 A=440:60SURB 5:PRINT" {BLK,C=-R,5S=#,C=R,5=-2,C=R,5=1}"; 

10452 A=480:60SUB 5: PRINT" {RVSON, GRN,S=2.5,RVSOFF,BLK, 
C=W}"; 

10455 A=520:60SUB 5:PRINT" {RVSON,GRN}JOHN {RVSOFF,BLK, 
S=-}";3 

10460 A=560: G6D0SUB 5:PRINT" {RVSON, WHT}DEERE{RVSOFF,BLK, 
C=Ww}"; 

10455 A=600: G0OSUB 5:PRINT" {RVSON,GRN? {S=L,C=A,C=E,C=$, 
RVSOFF,BLK,S=-}"; 

10470 A=540: GOSUB 5:PRINT"{RVSON,GRN} {S=W} „. {RVSOFF,„BLK, 
C=W}"3; 

10475 A=680: 60SUB 5:PRINT" {RVSON, WHT}ACTOR{RVSOFF,BLK,S=-, 
CYN}" 3; RETURN 


al ag, Tr 15 11575 
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10500 IF RT<>2 OR MF>2700 THEN GOTO 10450 

10505 A=440:60SUB 5:PRINT"{GRN} {S=U,S=I} {LEERT.27"; 

10510 A=480:60SUB 5:PRINT" {C=W,5=-,S=U,S=1} "3 

10515 A=520:60SUB 5:PRINT" (S=U,S=K,5=J,5=K,C=9> "; 

10520 A=560:60SUB 5:PRINT"(S=J,5=%,5=1,5=U,5=K} "; 

10525 A=600: 60SUB 5: PRINT" {LEERT.2,C=W,S=-,LEERT.2>"; 

10530 A=640:60SUB 5:PRINT" {S=U,S=K,C=Q} ";z 

10535 A=680:60SUB 5:PRINT" {C=W,C=-,5=-} {CYN}"3:RETURN 

10900 A=440:60SUB 5: PRINT" {RVSOFF} {LEERT.39>"; 

10904 A=480:60SUB 5:PRINT"{YEL} {LEERT.9,C=D,LEERT.3,C=D, 
LEERT.25}7"; 

10905 A=520:60SUB 5:PRINT"{LEERT.8,C=D,LEERT.10,C=D, 
LEERT.203"; 

10906 A=560:60SUB 5: PRINT" {LEERT.6,C=D,LEERT.17,C=D, 
LEERT.15}"; 

10910 A=600: 60SUB S: PRINT" {LEERT.4,C=D,LEERT.24,C=D, 
LEERT.103"3:LI=1 

10915 A=640: 60SUB 5: PRINT" {LEERT.2,C=D,LEERT.S5,BLK,C=D, 
C=I,RVSON,LEERT.3,RVSOFF,C=I,C=F,LEERT.20,YEL,C=F, 
LEERT.43"; 

10920 A=680:60SUB 5:PRINT"{C=D} {LEERT.4,BLK,C=D,RVSON, 
LEERT,C=I.2,RVSOFF,LEERT,RVSON, S=-, RVSOFF,LEERT,RVSON, 
C=1I.2,LEERT,RVSOFF,C=F,LEERT.22,YEL,C=F}"; 
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10925 RETURN 

11000 BZ=0:DIs="":C1$="",PRINT D2$; :60SUB 5657 

11010 GET Cis$ 

110153 IF DH<4 OR DH>22 THEN POKE 55281,0 

11018 IF Ci1$=""THEN 11010 

11020 C=ASC (C1$) :V=LEN (DI$) 

11025 IF C=45 THEN 11010 

11040 IF V>0 THEN IF C= 20 THEN 11100 

11050 IF C=13 THEN IF V<D THEN PRINT D35$;A7$:G60TO 11190 

11055 IF C=13 THEN 11190 

11060 IF V=D THEN 11010 

11070 IF C>31 AND C<96& THEN 11075 

11074 GOTO 11010 

11075 PRINT D5$;C1$; :DI$=DI$+C1$: C1$="":C=0:POKE W.17 
:POKE H,255:POKE A,25:POKE L,7 

1107& POKE FH, 205: POKE FL,10:FOR I7=1 TO 30:NEXT 
:POKE FH,255:POKE FL,10 

11077 FOR 17=1 TO 50:NEXT:POKE W.Oo 

11080 IF V<D-1 THEN PRINT D2$; 

11085 60T0 11010 

11100 DIS=LEFT$(DI$,V-1):PRINT D35$;A7$; DIS$; D2$; 

11110 IF V<D THEN PRINT D5$; D5$; A7$; A7$; DS$; DI$; D2$; 
:60T0 11010 

11120 PRINT D35$; A7$;D3$; D2$; :60T0 11010 

11190 PRINT" {CYN?"3=IF CR>S AND Ci1=0 THEN PRINT" {BLK}>"; 

11195 RETURN . 

12000 PRINT" {CLEAR, VEL}"3z 

12010 A=0: 60SUB S:PRINT" {RVSON, BLK,S=U,S=#27${5=%, 

S=K} {LEERT.29,5=J,5=2}$(5=2,5=1,BLU}"; 

12012 A=7:60SUB 5: PRINT" {RVSON, BLK}KONTO: $"; GW; :A=24 
: GOSUB 5: PRINT"FAHRTEN: "; FA; "{BLU>"; 

12020 A=40: 60SUB 5: PRINT" {RVYSON} {LEERT.S5,RED,LEERT.27, 
BLU,LEERT.7}>"; 

12050 PRINT" {RVSON,BLU> {LEERT.S5># x KERN x 
8% 82{LEERT.7}"; 

12040 A=120:60SUB 5 

12050 PRINT" {RVSON, BLK,S=U,5=42.38,5=1}"; 

12110 PRINT" {S=-,C=A,C=R.2,C=5} {C=R.2,5=%2,5=1> {C=R, 
C=5} {C=A,LEERT,C=R.2,5=2,5=1} {C=R,C=S,S=Uyu, 

S=3} {C=R.2} {C=R.2,5=%,S=I,LEERT,C=R.2,5=%, 
5=1}> {$5=-}"; 

12115 PRINT"{S=-} {S5=-,.2} {S=-,7} iS=-} {(S=-.2} {S=-} 15 
=—-.2} {LEERT.2,S5=-.3,LEERT.2,5=-.2,LEERT,S=-.2,LEERT, 
S=- ,LEERT,S=-.2,LEERT.3,S5=-3"; 

12120 PRINT"{S=-) {S=-.2} {S=-,73 1S=-} {S5=-.2> (S=-} <5 
=-.2) {LEERT} {S=-.3} {S5=-,2) ($5=-, 73 iS=-,LEERT, 
S=-. 2) {LEERT.2,S=-}"; 

12125 PRINT"{S=-} {S=-.2} {S5=-_23 15=-} (S=-.2>) {S=-} <5 
=—.2> {LEERT.2,S=-.3,LEERT.2,S=-.2,LEERT,S=-.2,LEERT, 
S=-,LEERT,S=-.2,LEERT.3,5=-}"; 


12150 PRINT" (S=-} {S=-, 2} 1S=-,C=9,C=R,S=K} ($S=-.2} iS=-, 


LEERT,S=-.2,LEERT} (S=-,C=Q,C=E,5=1} (5=-.23 (9=-.2, 
LEERT,S=-,LEERT,S=-.2} {C=8) (S5=-}"; 

121355 PRINT"{S=-} {S=-.2} {85=-.33 {S=-.2) {S=-} {S=-.2} 

{LEERT.2,85=-.2,LEERT,S=-,LEERT,S=-.2,LEERT,S=-.2, 

LEERT,S=-,LEERT,S=-.2,LEERT,S=-,LEERT,S=-}"; 

12140 PRINT"{S5=-} (S=-.23 {S=-.33 {$=-.7} {S=-,LEERT, 
S=-.2,LEERT} {S=-.2,LEERT,S=-} {S=-,2} (S=-.2,LEERT, 
S=-,LEERT,S=-.2} (S5=-} {5=-7"; 

12145 PRINT" (S=-) {S5=-.23 (S=-.3) (S=-.2) (5=-) (8=-.23 

{LEERT.2,5=-.2,LEERT,S=-,LEERT,S=-.2,LEERT,S=-.2, 
LEERT,S=-,LEERT,S=-.2,LEERT,S=-,LEERT,S=-}"; 

12150 PRINT" {S=-} {C=E.23 {C=E,C=X,C=Z,C=%X} {C=E.2,5=$, 
S=K,LEERT,C=E.2,5=8,5=K} {C=E.2) (C=Z) {C=E.23 {C=E, 
C=X,LEERT,C=Z} {C=E.2,5=2,5=K} (8=-}"; 

12155 PRINT" (S=J,5=2.38,5=K}"; 

12157 PRINT"{RVSON,BLU> {LEERT.SE SE Et ı 1 kr 
8% 8{LEERT.73"; 

12160 PRINT" {RVSON,BLK} {LEERT.5,5=2.8,8=1,S=U,LEERT.Z, 
S=U,S=I,LEERT.3,S=U,S=I,LEERT,S=%.3,LEERT. 103"; 

12170 PRINT" {LEERT.8,S=%.5,LEERT,S=-. 2,LEERT.3,5=J,S=1, 
LEERT.3,C=Q,C=W,LEERT,S=%.5,LEERT.83"; 

12180 PRINT" {LEERT.10,S=%.3,LEERT,S=J,S=K,LEERT}. {5=J, 
S=K} . (S=K,5=J,5=2.8} {LEERT.5}"; 
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11000 Die allgemeine Eingaberoutine. 
Bis auf den Austausch von INKEY $ (Mi- 
crosoft) gegen GET (Commodore, Apple 
etc.) ist dieses Unterprogramm mit dem in 
Zeile 1000 des »Könige und Burgen«-Pro- 
gramms identisch, 


12000 Erstellung des Titels (s. S. 55). Mit 
einem Trick ist es gelungen, auf 2 ver- 
schiedene Bildhintergründe — blau und 
schwarz — gleichzeitig zu drucken. Der ei- 
gentliche Hintergrund ist weiß; die Schrift 
ist im Revers-Modus draufgedruckt, der 
blau erscheinende Hintergrund mit Blanks 
in blau. Deshalb muß auch in 12210 die 
letzte Bildstelle rechts unten - auf die nicht 
gePRINTet werden kann — mit POKE 
2023,224 bedruckt und dann mt POKE 
96295,6 blau gefärbt werden (eine Bild- 
stelle zu färben geht erst, wenn in diese 
Adresse etwas gePOKEd wurde). 


15220 Das Programm zur einfachen Me- 
lodieerstellung wird eingerichtet. 


16100 Titelmelodie / walk the line 
16120 Unfallkrach 


16130 »Pfft« der Druckluftbremse 


16200 Polizeisirene 


16250 Blizzardgeheul (es hat 2 Unterbre- 
chungsmöglichkeiten 16262 und 16272, 
oJamit der Spieler nicht denkt, es sei etwas 
kaputt, wenn das Programm nicht sofort 
reagiert). 


16300 Motorgeräusch wird als Funktion 
der Geschwindigkeit höher oder tiefer. 


12181 PRINT"{RVSON,BLUF {LEERT.SE KERLE LK KU 
* *{LEERT.7}"; 

12182 PRINT" {RVSON,BLK} {S=U,S=%.36,5=1} "; 

12183 PRINT" (S=-} {LEERT.35,S=-,LEERT}"; 

12184 PRINT" {5=J,5=%2.36,5=K} "; 


12185 A=8053:60SUB 5:PRINT"{RVSON> {S=#.5> COPYRIGHT VRIL 


1983 {5=4.7)> "; 
12190 A=880:60SUB 5:PRINT"{RVSON, BLU} {LEERT.SI# 8 8 x x 
zu EL. RK 8 S{LEERT.7>”; 
12195 PRINT"{RVSON? {LEERT.S,RED,LEERT.27,BLU,LEERT.7}"3; 
12200 A=9680:G60SUB 5:PRINT"{RVSON, BLU} {LEERT.SIE 2 x x x 
“ER ER K KR X{LEERT.6>"; 
12210 POKE 535281,1:POKE 20253,224:POKE 56295, &6:RETURN 
15220 S=15324096+1024:DIM F{268):DIM K(255) 
15250 FOR I=0 TO 28:POKE S+I,O:NEXT 
15240 POKE 542965,15 
15250 F1=7040: FOR I=1 TO 25:F (27-I)=F1%5.98+30 
:F1=F1/2” (1/12) :2NEXT 
15280 K$="B2WIERSTEYFTUIFDOPD-K\”" 
15270 FOR I=1 TO LEN(K$) :K(ASC(MID$ (K$, I)))=I: NEXT 
15290 AT=00: DE=5: SU=09: RE=11:SV=SUX16+RE: AV=ATX16+DE: WV=32 
ıW=0:M=1 
15295 0C=4:HB=256: Z=0 
15500 FOR I=0 TO 2:POKE S+5+1#27,AT#21&+DE 
:POKE S+6+187,SU#16+RE 
15510 POKE S+2+137,4000 AND 255:POKE S+3+1#7,4000/2565:NEXT 
15320 RETURN 
15330 FR=F(K(ASC(A1$))) /M: T=V#7:C00=S+T+4 
IF FR=Z THEN 15450 
15550 POKE S+6+T,Z:POKE S+5+T,Z:POKE CC,8:POKE CC,O 
153580 POKE S+T,FR-HB&INT (FR/HB) 
15390 POKE S+1+T,FR/HB 
15400 POKE S+6+T,SV 
15410 POKE S5+5+T,AV 
15420 POKE CC,WV+1:FOR I=1 TO S5O8AT:NEXT 
15450 POKE CC,WV 
15440 IF P=1 THEN V=V+1:IF V=3 THEN V=0 
15450 RETURN 
154580 IF Als="{iF1}"THEN M=-1:0C0=-4:60T0 15320 
15470 IF Al$="{F3}"THEN M=2:0C0=3:60T0 15320 
15480 IF Al$="{iF5S})"THEN M=-4:0C0=2:60T0 15320 
15490 IF Al$="{F7}"THEN M=8:0C=1:60T0 15320 
15500 IF Al$="iF2}"THEN W=0:WV=15:60T0 15320 
15510 IF Al$="{F4}"THEN W=1:WV=32:60T0 15320 
15520 IF Al$="{FS5}"THEN W=e2:WV=54:560T0 15320 
15550 IF Al$="{FB8}"THEN W=3:WV=128:60T0 15320 
15540 IF Al$=" "THEN P=1-P:60T0 15320 
15550 IF Al$="{F1}"THEN M=1:00=4:60T0 15320 
15560 RETURN 
165010 POKE 54295,5 
18015 FOR II=1 TO IA:Ai$=MID$S(AA$,II,1):60SUB 15330 
16020 NEXT=:FOR I=1 TOD 900:NEXT::POKE 54296, 0:W=542765 
: RETURN 
18100 AAS="{FS3,FA)TSTYy YYIUYT {FS5> TSTY YYIUYT {F3} TYUIt 
LEERT.2}1IPOIU {FS>TSEWWWEWEST" 
18110 1A=55:605UB 16010:RETURN 
168120 POKE 54296, 15: AA$="(F8,F7}Q*": IA=4:60SUB 165015 
: RETURN 
1581530 POKE 54295, 7:AA$="{FB8,F1)” ":1A=4:60SUB 16015:RETURN 
15200 POKE W,17:POKE H,255:POKE AS,255:POKE L,15 
16205 FOR 1=530 TO 968 STEP 3:POKE FH,I:POKE FL,10:NEXT 
18210 FOR I= 95 TO 30 STEP-3:POKE FH,I:POKE FL,10:NEXT 
16215 GET I$: IF I$=""THEN 15205 
16220 POKE W,O:RETURN 
18250 POKE W,129:POKE H,255:POKE AS,255:POKE L,15 
16250 POKE 53281,14 
16281 FOR I=1 TO 25 STEP.3:POKE FH,I:POKE FL,10:NEXT 
16282 GET I1$:IF I$=""THEN 15270 
168254 POKE W,0:6G0SUB 5655: RETURN 
16270 POKE 53281,1 
18271 FOR I= 25 TO 9 STEP-.i:POKE FH,1:POKE FL,10:NEXT 
16272 GET Is: IF I$=""THEN 16260 
16274 POKE W,0:605UB 55535:RETURN 
18500 POKE W1,55 :POKE H1,255:POKE SA,255:POKE L1,8 


168510 FOR I= 1 TO INT(SP/20):POKE F2,I:POKE F1,255 
:FOR X=1 TOD 90: NEXT=:NEXT 

18515 RETURN 

168550 POKE W,129:POKE H,255:POKE AS, 255:POKE L,15 

168560 POKE 53281,14 

16561 FOR I=1 TO 25 STEP.S:POKE FH,I:POKE FL,10:NEXT 

16582 GET I$: IF I$=""THEN 16270 

168554 POKE W,O:RETURN 

16570 POKE 53281,0 

18571 FOR I= 25 TO 9 STEP-.1:POKE FH,1I:POKE FL, 10:NEXT 

16572 GET I$: IF I$=""THEN 153650 

18574 POKE W,O:RETURN 

659797 STOP 


+ + + 
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Geschrieben in CBM-Basic für den Commodore 64 


Das Spiel »Ramses« hat schon einige Jahre auf dem Buckel. Es wurde in 
Amerika unter dem Titel »Hammurabi« zur Schulung von Managern ent- 
wickelt. Dabei handelt es sich um das typische Beispiel eines Simulations- 
spieles. Das Ziel des Spieles ist es, eine Stadt des Altertums durch kluge 
Verwaltung zu vergrößern, die Einwohnerzahl zu steigern und die Kornvor- 
räte in den Speichern der Stadt auf einer Höhe zu halten, die einerseits den 
Ratten nicht unbeschränkte Nachkommenschaft erlaubt, auf der anderen 
Seite aber hilft, Jahre mit Mißernten ohne Hungerkatastrophen zu überle- 
ben. Die Faktoren, die den Erfolg der Verwaltung bestimmen, sind nur zu 
einem geringen Prozentsatz zufällig. Die meisten werden durch Rück- 
kopplung von Aktionen des Spielers bestimmt. 

»Hammurabi« in seiner Originalform war genauso langweilig, wie es ein 
Lehrspiel erwarten läßt. Um es spielbar zu machen, mußte ein Szenario 
entworfen werden, das den Spieler motiviert. Der erste Schritt dazu war 
die Umsetzung des trockenen Originaltextes in märchenähnlichen Erzähl- 
stil. Es ist weniger langweilig, zu lesen: »SCHLAGE DEINEN DIENER!« als 
»BITTE DRUECKEN SIE DIE RETURN TASTE!«. 

Die zweite, wesentlich wichtigere Änderung ist die Neuschaffung des 
Commodore-Zeichensatzes. Der normale, für Datenverarbeitung geeig- 
nete Zeichensatz paßt nur schwer in eine Umgebung des Altertums. Der 
neue Zeichensatz wird in DATA-Zeilen aufbewahrt. Wenn man sich die 
Arbeit sparen will, die gesamten DATA-Zeilen einzutippen, muß man nur 
Zeile 10, 20 und Zeile 2940 weglassen. In Zeile 2940 steht dann nurnoch 
END. Sämtliche Zeilen ab 3150 können dann entfallen. (AW) 


++ + 


8/ 


iO REM VORM EINTIPPEN UND LAUFENLASSEN EINGEBEN: POKESs, 128 10 Dieser POKE-Befehl muß im Direkt- 


modus eingegeben werden, bevor man 
das Programm laufen läßt. Er sorgt dafür, 
daß die Obergrenze des BASIC-Spei- 
chers um 4K nach unten gezogen wird. 
Diese 4K werden benötigt, um den neuen 


Zeichensatz aufzubewahren. 
20 PRINT" BITTE WARTEN...":POKE 53272,19:POKE 648,132 20 Sprung ins Unterprogramm, in dem 
‚POKE 56576, 197360SUB 3150 der Zeichensatz eingelesen wird; Nach- 


richt an das Betriebssystem, daß ein neu- 
er Zeichensatz verwendet wird (53272), 
an den BASIC-Interpreter, daß sich die 
Anfangsadresse des Bildschirms geän- 
dert hat (648), und Umsetzung der Bild- 
schirm-Anfangsadresse (56578). 


30 POKE 53281,0:POKE 53280, 6: PRINT" {WHT}" Fate 
40 60SUB 2520 30-40 Aufbereitung des Spieltitels 


SCHEIN NG 


EIN NANAGMENTSPIEL. AUS DER ANTIKE 


BESIEGEN NIE 





50 FOR I=1 TO 40:F1$=F1$+"({CU=RE}":NEXT:FOR I=1 TO 24 50 Vorbereitung der Routine, die dazu 
:F2$=F2$+" {CU=AB}":NEXT:GOTO 70 dient, Druckausgaben auf den Bildschirm 
genau zu positionieren. 


60 PRINT" {HOME} "+LEFT$ (F2$, INT (F/40) )+LEFT$(Fi$, 60 Die in Zeile 50 geschaffenen Strings 
(F-INT (F/40) #40) ) ; zRETURN F1$ und F2$ werden zur Positionierung 
einer Druckausgabe verwendet. 


70 DEF FNR(X)=INT (RND (0) #X+1) 70 Die Funktion FNR{X) wird dazu ver- 


wendet, eine ganzzahlige Zufallszahl zwi- 
schen 1 und X zu erzeugen. 
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80 Das Unterprogramm ab Zeile 1900 er- 
zeugt die Überschrift, die auf dem Bild- 
schirm sichtbar ist, wenn sonst nur Text 
ausgegeben wird. CX und CY werden be- 
nötigt, um die Cursor-Position zu errech- 
nen. In Speicherstelle 211 steht die Cur- 
sorspalte, in 214 die Cursorzeile 


90 POKEt man in Adresse 198 die 0, so 
wird der Tastaturpuffer geräumt. In IM$ 
steht während des Spieles der Default- 
Wert der Antwort (d.h. der Wert, der in 
eine Variable gefüllt wird, wenn nur die RE- 
TURN-Taste gedrückt wird). IS wird dazu 
benutzt, in der Eingaberoutine einige Zei- 
len zu überspringen. 


100-140 Frage, ob Erläuterungen benö- 
tigt werden 


150-240 Initialisierung der für das Spiel 
relevanten Variablen. 


250-310 Bericht bei Regierungsüber- 
nahme 


350 In 1830 wird die Position der Einga- 
bezeile festgelegt. 


370 Wenn kein Land gekauft wird, kann 
Land verkauft werden (450). 


380-390 Überprüfung auf fehlerhafte 
E n und Ausgabe der Fehlermel- 


dungen 


410 Errechnen ‚der neuen Korn- und 
Landbestände. Überspringen der Land- 
verkaufsroutine 


450-510 Der Aufbau dieser Zeilen ist 
igentisch mit den Zeilen 350-410, nur daß 
es diesmal darum geht, Land zu ver- 
kaufen. 


80 G0SUB 1900: CX=211:CY=214:REM 211,214 

90 POKE 198,0: 1IM$="{5=233":1S=1 

100 PRINT" {CU=AB.8,CU=RE.S}WILLST DU BERATEN WERDEN? "3; 
:GOSUB 29650: A$=IN$: I1I5=0 

110 IF LEFT$(A$,1)="N"THEN 150 

120 IF LEFT$(A$,1)="J"THEN GOSUB 2080:60T0 150 

130 PRINT"UNVERST\NDLICH IST MIR DEINE SPRACHE.":=PRINT 


"140 PRINT"DER ANTWORTEN ERWARTE ICH NUR ”JA”"=PRINT 


:PRINT"ODER ”’NEIN’ '":60T0 80 

150 K=30000:REM KORNVORRAETE 

150 EW=100 :REM EINWOHNER 

170 L=1000 :REM LANDBESITZ 

180 J=0:REM REGIERUNGSJAHR 

190 ER=O:REM ERNTE 

200 RA=0:REM RATTENSCHADEN 

210 ZU=0:REM ZUG”’ROASTE 

220 PT=O0:REM PESTTOTE 

230 HT=0:REM HUNGERTOTE 

240 PR=54:REM LANDPREIS 

250 FA$="{PUR}":GOSUB 1900:PRINT" ICH BERICHTE :":PRINT 

260 PRINT" ES SIND JETZT "3:KX=PEEK(CX) :KY=PEEK (CY) :X=KX 
» Y=KY: Z=K:60SUB 1570 

270 PRINT"SCHEFFEL KORN IN":PRINT:PRINT" DEN SPEICHERN." 
:PRINT 

280 PRINT" DIE STADT HAT JETZT "z;:Z=EW:60SUB 1550 
PRINT" EINWOHNER. ":PRINT 

290 PRINT" DU BESITZT "z3:LX=PEEKI(CX) :LY=PEEK(CY) sX=LX: Y=LY 
» Z=L:60SUB 1570 

300 PRINT" MORGEN LAND. ":PRINT 

310 PRINT" EIN MORGEN LAND KOSTET "3;:Z=PR:GOSUB 1650 
:PRINT" SCHEFFEL." 

320 REMIZERKEHERIEIRRERKERKII RI HIFI RR 

3350 REM LAND KAUFEN 

340 REMZZEIEHKLILLRILEEKERERIERKILI TI RR 

350 G60SUB 1830:PRINT"WIEVIEL MORGEN WILLST DU KAUFEN ?" 

360 POKE 198,0: 1IS=0 

370 IM=0:PRINT"J”_{LEERT.3}"3;3:60SUB 2950: M=VAL (IN$) 
IF M=0 THEN 450 


380 IF M<O THEN GOSUB 1700:60T0 350 
390 IF M4PR>K THEN F4=1:605SUB 1780:60T0 350 
400 PRINT FB$; 


410 K=K-M#PR: X=KX: Y=KY: Z=K:GOSUB 1570:PRINT FB$; :L=L+M 
»X=LX: Y=LY: Z=L:605UB 1570:60T0 550 

420 REMZZEIEKEEERLEKIKEEKHER ERIK RER II 

430 REM LAND VERKAUFEN 

440 REMEEZELEKFIEELLERZEIERKEKER ELITE 

450 G60SUB 1830:PRINT"WIEVIEL MORGEN WILLST DU VERKAUFEN?" 

450 POKE 198,0 

470 IM=0:PRINT"]J*_{LEERT.3}"3:6GOSUB 2950: M=VAL (IN$) 
»:IF M=0 THEN 550 

480 IF M<O THEN GOSUB 1700:60T0 450 

490 IF M>L THEN F4=2:60SUB 1760:60T0 450 

500 PRINT FB$; 

510 L=L-M:X=LX:Y=LY:Z=1L:60SUB 1570:PRINT FB$; :K=K+M3PR 
: X=KX: Y=KY: Z=K:GOSUB 1570 
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520 REMFIEZEELKERLEKLLEKLEIKIKKEI RE KR IKK 
550 REM EINSAEEN 
540 REMZZKLELKEIIKIKEKTIEKKKEKKIR IK III KG 
550 GODOSUB 1850:PRINT"WIEVIEL MORGEN WILLST DU EINS\EN " 
550 M=EW#4: IF M>L THEN M=L 
570 IF M>K THEN M=K 
580 POKE 198,0 
590 IM=M: PRINT"LASSEN?{LEERT.S3}]”_{LEERT. 337"; : GOSUB 2950 
»A=VAL(IN$) IF A=0O THEN 590 
600 IF A<O THEN GOSUB 1700:60T0 550 
810 IF A>L THEN F4=2:6G0SUB 1750:60T0 550 
620 IF A>4XEW THEN F4=3:60SUB 1750:60T0 550 
650 IF A>K THEN F4=1:60SUB 1750:60T0 550 
640 PRINT FB$; 
6850 K=K-A: X=KX: Y=KY: Z=K:GOSUB 1570 
550 REMZZEKKRERELRIEKKEKRERKEKEKUR IRRE 
670 REM VERTEILEN 
5680 REMZEKEHREEKERERZERKKKIKK KT I RI II RE 
690 GOSUB 1850:PRINT"WIEVIEL SCHEFFEL KORN WILLST DU AN D 
IE{LEERT.2}?" 
700 POKE 198,0: IM=INT(4.&#EW) =: IF IM>1ES THEN IM=IMF1.1 
710 IF IM>K THEN IM=K 
720 PRINT "HUNGERNDEN VERTEILEN?"; PRINT" ]1”_{LEERT.3}7"; 
:GOSUB 2950: H=VAL (IN$) 
730 IF H=0 THEN 790 
740 IF H<O THEN GOSUB 1700:60T0 590 
750 IF H>K THEN F4=1:G60SUR 1750:60T0 590 
760 PRINT FB$; 
TITAN. EM Me Far Kr KunK sh UA TFPOUBSUHT ID U 
780 REMIIEKREIKEERRERKERRRRRRKER TIERE N 
790 REM RECHNEN 
800 REMIFRRKKKERERRERKERIKKKKE RR IKT EN E 
810 ER=FNR (8) :K=K+ER&A: RA=FNR (K/2) sK=K-RA 
820 H1=INT (EW-H/4.5) :H2=INT (EW-H/9) = IF Hi<=O THEN 850 
830 HT=FNR (H1) =HT=HT+INT ( (EW-HT) /5) : HO=HO+HT: EW=EW-HT 
:PT=FNR (EW/2) »PO=PO+PT 
840 EW=EW-PT: ZU=FNR (EW/20) =: Z0=Z0+ZU: EW=EW+ZU: GOTO 880 
850 HT=0: IF H2>2 THEN 870 
850 ZU=FNR (EW-H2) : Z0=270+ZU: EW=EW+ZU: PT=FNR (EW/15) :PO=PO+PT 
:EW=EW-PT:GOTO 880 
870 ZU=FNR (EW/2) : Z0=70+ZU: EW=EW+ZU: PT=FNR (EW/7) 1 PO=PO+PT 
:EW=EW-PT 
880 IF PT=1 THEN PT=0: EW=EW+1:PO=PO-1 
8970 IF ZU=1 THEN ZU=2: EW=EW+1: Z0=70+1 
900 IF EW<1 THEN 2020 
910 PR=INT (2*FNR (5) )2J=J+1: IF J<80 THEN 1130 
920 IF J>80 THEN 1010 
930 REMISEKEKREREELKERERERKEKEREHLRKE N 
940 REM ALTER 
950 REMZIERRKERERIEIERIKKERRKEKK HERE N 


760 FA$="{BLU}":GDOSUB 1900: PRINT"WARNEN MUSS ICH DICH NUN, 
DO HERR, DASS":PRINT 

770 PRINT"DU NICHT DEN G$TTERN GLEICH EWIG KANNST": PRINT 

980 PRINT"VERWEILEN AUF DIESER WELT. ":PRINT 

790 PRINT"EREILEN KANN DER TOD DICH VON NUN AN": PRINT 
:PRINT"IN JEDEM JAHRE !tı" 

1000 GOSUB 2490 —) 

1010 IF FNR(30) >J-80 THEN 1130 


90 


550-650 Einsäen von Land. DajederEin- 
wohner maximal vier Morgen pro Jahr be- 
stellen kann, muß überprüft werden, ob 
diese Zahl nicht überschritten wird (560). 
Wenn das Saatgut die Kornvorräte über- 
steigt, wird der Default-Wert auf den Wert 
der Kornvorräte gesetzt. Wenn bei der 
Eingabe dieser Wert überschritten wird, 
erscheint eine Fehlermeldung und die Ein- 
gabe wird annulliert. 


690-770 Damit sich die Bevölkerung ver- 
mehren oder wenigstens am Leben blei- 
ben kann, benötigt sie Korn zum Essen. 
Dieses Korn wird in diesen Zeilen verteilt 
und mit den zulässigen Werten verglichen. 


810-920 Sämtliche Algorithmen für das 
Spiel werden hier durchlaufen. Man sieht, 
daß der Rattenschwund (RA) von den 
Kornvorräten abhängig ist (im Zusammen- 
hang mit einer Zufallszahl). Hi bestimmt 
den Bereich, in dem sich die Zahl der Hun- 
gertoten bei unzulänglicher Ernährung be- 
wegen kann. H2 ist der Bereich, in dem 
sich die Zuwanderungen bewegen kön- 
nen. In Zeile 830 werden die Hungertoten 
zur Gesamtzahl der Hungertoten addiert. 
Die Pest kann bis zur Hälfte der Bevölke- 
rung hinwegraffen. Auch die Pesttoten 
werden für die endgültige Abrechnung ge- 
zählt. Bei unzureichender Ernährung kann 
die Bevölkerung maximal um 5 Prozent 
steigen (FNR(EW/20)), bei ausreichender 
Emährung kann sie bis zur Hälfte wach- 
sen. In beiden Fällen werden noch einmal 
neue Pesttote »erzeugt«. Der Landpreis 
(PR) wird errechnet zwischen 2' und 2%; 
zum Lebensalter des Regierenden wird 
ein Jahr hinzugezählt. Erst ab 80 Jahren 
besteht das Risiko, das Zeitliche zu 
segnen. 


960-1010 Der Spieler wird höflich darauf 
hingewiesen, daß er jeden Augenblick 
sterben kann und es für ihn Zeit wird, seine 
Geschäfte in Ordnung zu bringen. 


520 REMZEKEKERTIKKERKKERIKKIEKRTEKKR GGG 

530 REM EINSAEEN 

540 REMESEREKEKEIIKELEKREKKKKERTEKKEEKEG 

550 GOSUB 18350: PRINT"WIEVIEL MORGEN WILLST DU EINS\EN " 

560 M=EW#4:IF M>L THEN M=L 

570 IF M>K THEN M=K 

580 POKE 198,0 

590 IM=M:PRINT"LASSEN?{LEERT.3>J”_{LEERT.3}"3:G60SUB 2950 
zA=VAL(IN$S):IF A=0 THEN 690 

600 IF A<O THEN GOSUB 1700:60T0 550 

610 IF A>L THEN F4=2:60SUB 1760:60T0 550 

620 IF A>44EW THEN F4=3:60SUB 1760:60T0 550 

630 IF A>K THEN F4=1:60SUB 1760:60T0 550 

640 PRINT FB$; 

650 K=K-A: X=KX: Y=KY: Z=K:G0OSUB 1570 

5650 REMEELIEREEIKLTERREKTKRIRTEHKEREREN 

670 REM VERTEILEN 

5BO REMKERIRKREIEIERRERTIKKRREKUKE KERNE 

690 GOSUB 1850:PRINT"WIEVIEL SCHEFFEL KORN WILLST DU AN D 
IE{LEERT.2>" 

700 POKE 198,0: IM=INT(4.63EW): IF IM>1ES THEN IM=IMt1.1 

710 IF IM>K THEN IM=K 

720 PRINT"HUNGERNDEN VERTEILEN?"5:PRINT" 3”_{LEERT.3}"35 
:GOSUB 2950: H=VAL (IN$) 

730 IF H=0 THEN 790 

740 IF H<O THEN G0OSUB 1700:60T0 #90 

750 IF H>K THEN F4=1:60SUB 1750:60T0 690 

760 PRINT FB$; 

770 K=K-Hı Z=K: X=KX: Y=KY:G0SUB 1570 

780 REMZEKEEREKIEKKKEKKKKKKERKERTERE RK 

790 REM RECHNEN 

800 REMEKEEKKKRKELKERKKRKKIKERUR ERKENNT 

810 ER=FNR (8) :K=K+ER&#A: RA=FNR (K/2) =K=K-RA 

820 Hi1=INT (EW-H/4.5) :H2=INT (EW-H/9): IF Hi<=0 THEN 850 

830 HT=FNR (H1) =HT=HT+INT ( (EW-HT) /5) =HO=HO+HT + EW=EW-HT 
: PT=FNR (EW/2) :PO=PO+PT 

840 EW=EW-PT: ZU=FNR (EW/20) : Z0=Z0+ZU: EW=EW+ZU:GOTO 880 

850 HT=0: IF H2>2 THEN 870 

860 ZU=FNR (EW-H2) : Z0=Z0+ZU: EW=EW+ZUS PT=FNR (EW/15) :PO=PO+PT 
: EW=EW-PT:G60TO 880 

870 ZU=FNR (EW/2) : ZO=70+ZU: EW=EW+ ZU: PT=FNR (EW/7) 3 PO=PO+PT 
: EW=EW-PT 

880 IF PT=1 THEN PT=0:EW=EW+1:PO=PO-1 

890 IF ZU=1 THEN ZU=2: EW=EW+1: Z0=70+1 

900 IF EW<1 THEN 2020 

910 PR=INT (2°FNR (6) ):J=J+1: IF J<80 THEN 1130 

920 IF J>80 THEN 1010 

ISO REMIKLLIKKEIKKKKRREKELLTKLRKKERENEG 

940 REM ALTER 

ISO REMIEKEKKLKELLLERREKKKREKEKTKLREREN N 


9760 FA$="XBLU}":GOSUB 1900: PRINT"WARNEN MUSS ICH DICH NUN, 
D HERR, DASS":PRINT 

770 PRINT"DU NICHT DEN G$TTERN GLEICH EWIG KANNST":PRINT 

980 PRINT"VERWEILEN AUF DIESER WELT.":PRINT 

790 PRINT"EREILEN KANN DER TOD DICH VON NUN AN":=PRINT 
:PRINT"IN JEDEM JAHRE !tı" 

1000 GOSUB 2490 —) 

1010 IF FNR{30) >J-80 THEN 1130 
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550-650 Einsäen von Land. Da jeder Ein- 
wohner maximal vier Morgen pro Jahr be- 
stellen kann, muß überprüft werden, ob 
diese Zahl nicht überschritten wird (560). 
Wenn das Saatgut die Kornvorräte über- 
steigt, wird der Default-Wert auf den Wert 
der Kornvorräte gesetzt. Wenn bei der 
Eingabe dieser Wert überschritten wird, 
erscheint eine Fehlermeldung und die Ein- 
gabe wird annulliert. 


690-770 Damit sich die Bevölkerung ver- 
mehren oder wenigstens am Leben blei- 
ben kann, benötigt sie Korn zum Essen. 
Dieses Korn wird in diesen Zeilen verteilt 
und mit den zulässigen Werten verglichen. 


810-920 Sämtliche Algorithmen für das 
Spiel werden hier durchlaufen. Man sieht, 
daß der Rattenschwund (RA) von den 
Kornvorräten abhängig ist (im Zusammen- 
hang mit einer Zufallszahl). Hi bestimmt 
den Bereich, in dem sich die Zahl der Hun- 
gertoten bei unzulänglicher Ernährung be- 
wegen kann. H2 ist der Bereich, in dem 
sich die Zuwanderungen bewegen kön- 
nen. In Zeile 830 werden die Hungertoten 
zur Gesamtzahl der Hungertoten addiert. 
Die Pest kann bis zur Hälfte der Bevölke- 
rung hinwegraffen. Auch die Pesttoten 
werden für die endgültige Abrechnung ge- 
zählt. Bei unzureichender Emährung kann 
die Bevölkerung maximal um 5 Prozent 
steigen (FNR(EW/20)), bei ausreichender 
Ernährung kann sie bis zur Hälfte wach- 
sen. In beiden Fällen werden noch einmal 
neue Pesttote »erzeugt«. Der Landpreis 
(PR) wird errechnet zwischen 2' und 2%; 
zum Lebensalter des Regierenden wird 
ein Jahr hinzugezählt. Erst ab 80 Jahren 
besteht das Risiko, das Zeitliche zu 
segnen. 


960-1010 Der Spieler wird höflich darauf 
hingewiesen, daß er jeden Augenblick 
sterben kann und es für ihn Zeit wird, seine 
Geschäfte in Ordnung zu bringen. 


1050-1090 Nun hat ihn das Schicksal 
gahingerafft. Nach einer kurzen Todesan- 
zeige wird zur Endabrechnung verzweigt. 


RANSES VON NEIL 


er 

ICH BERICHTE NUN VON DEM SAHRE 4 
DEINER HERRSCHAFT ÜBER OHS LAND AH NEL 
DIE ERNTE BETRUG d SCHEFFEL KORN JE 
NORGEN,. INSGESANT 3200 SCHEFFEL. 

2969 SCHEFFEL FRAÄSSEN DIE RATTEN. 

ES SIND JETZT eh re, SCHEFFEIL. KORN 
IN DEN SPEICHERN, 


SCHLAGE DEINEN DIENER! 


1130-1350 Bericht über den Erfolg eines 
Regierungsjahres. Die in der Rechenrouti- 
ne ermittelten Zahlen werden in gefälliger 
Form auf den Bildschirm gebracht, und 
der Spieler wird gefragt, ob er abdanken 
will. Bei JA wird zur Endabrechnung ver- 
zweigt. 


1390-1530 Die große Abrechnung hat 
begonnen. Beim ersten Mal bekommt 
man einen Heidenschreck, wie schlecht 
man sich als Regierender bewährt hat. 
Wenn dem Spieler plötzlich weiß auf 
schwarz gesagt wird, daß während seiner 
Regierungszeit 200000 Einwohner des 
Hungers gestorben sind, gelobt er sich 
bestimmt für seine nächste Regierungs- 
periode Besserung. 





1020 REMFFFIEKETEKLEIKRIIIREKERIIIR II 

1050 REM TOD 

1040 REMZFLIERILLLLLELLIKIIITRI RER I 

1050 FA$="{BLU}F":6DSUB 1900:FOR I=1 TO 20:PRINT"(S=+} "; 
:NEXT:PRINT 

1050 PRINT"EREILET HAT DICH DEIN SCHICKSAL NUN IM":PRINT 

1070 PRINT"JAHRE";J;" DEINER HERRSCHAFT !"=PRINT 

1080 PRINT:FOR I=1 TD 20:PRINT"{S=+} "3:NEXT:PRINT:PRINT 
»:GDSUB 2490 

1090 GOTO 1390 

1100 REMZEFIEEKKKIERIIKEKTIRTII KEIL 

1110 REM BERICHT 

1120 REMZIEZIERIEIKKEKEII TRIER I REIKI I 


RANSES VOM NEIL 


ES KRANEN 20 NENSCHEN IN DIE STADT. 
if MENSCHEN STARDBEN AN DER PEST 

UND 0 DES HUNGERS, 

DIE STADT HAT JETZT 104 EINHÜHNER. 

TEA abe) NORGEN LAND, 

EIN NORGEN LAND KUSTET 1& SCHEFFEL. 


HILLST DU ABDANKEN 7 3 NEIN 





1130 FA$="iC=4}":60SUB 1900:PRINT"O RAMSES !{CU=AB}" 

1140 FB$="{RVSOFF,WHT}" 

1150 PRINT"ICH BERICHTE NUN VON DEM JAHRE"; J: PRINT 

1150 PRINT"DEINER HERRSCHAFT ®BER DAS LAND AM NIL:" 

1170 FOR I=1 TO 1000:NEXT I 

1180 PRINT" {CU=AB}DIE ERNTE BETRUG";3ER;" SCHEFFEL KORN JE" 
PRINT 

1190 PRINT"MORGEN, INSGESA 
:PRINT" SCHEFFEL.":PRINT 

1200 Z=RA:GOSUB 1550:PRINT" SCHEFFEL FRASSEN DIE RATTEN." 
:PRINT 

1210 PRINT"ES SIND JETZT "3:KX=PEEK(CX) :KY=PEEK(CY) = X=KX 
: Y=KY: Z=K:GOSUB 1570 

1220 PRINT" SCHEFFEL KORN"=PRINT:PRINT"IN DEN SPEICHERN. " 

1230 G60OSUB 2490: FA$="{VYEL}":G6OSUB 1900 

1240 PRINT"ES KAMEN "3;:Z7=ZU:GOSUB 1550 
:PRINT" MENSCHEN IN DIE STADT.":PRINT 

1250 Z=PT:G0SUB 1550: PRINT" MENSCHEN STARBEN AN DER PEST" 
:PRINT 

12580 PRINT"UND ";:Z=HT:GOSUB 1450:PRINT" DES HUNGERS. " 
PRINT 

1270 PRINT"DIE STADT HAT JETZT ";:Z7=EW:G6OSUB 1650 
PRINT" EINWOHNER. ":PRINT 

1280 PRINT"DU BESITZEST "; 

1290 LX=PEEK (CX) sLY=PEEK (CY) sX=LX: Y=LY: Z=L:60SUB 1570 

1300 PRINT" MORGEN LAND. "=PRINT 

1510 PRINT"EIN MORGEN LAND KOSTET";PR;" SCHEFFEL." 

1520 FOR I=1 TO 1000:NEXT 

1330 POKE 198, 0: IM$="NEIN":IS=1 

1340 GOSUB 18530:PRINT"WILLST DU ABDANKEN ?{LEERT.2}?) 
>” _ {LEERT.S?",:60S5SUB 2950: A$S=IN$: 1IS=O 

1350 IF A$<>"J"AND A$<>"JA"THEN FB$=" {RVSON,YEL}" 
:GOSUB 2540:60T0 350 

1550 REMZFFKEKTIKKIKEKRRERI TIERE RU RI RU RR 

1370 REM SPIELENDE 

1580 REMFFEERZEIKKLIKKELIKRIE KIT RI RE KEN 

1390 FA$="i{C=2}":605SUB 1900:PRINT"DU HAST "J" JAHRE GEHER 
RSCHT !":PRINT 

1400 PRINT"SO SIEHE DENN, OB DU EIN GUTER":PRINT 
: PRINT"HERRSCHER WARST !" 

1410 PRINT" {CU=AB}DU HAST DEN KORNVORRAT DER STADT UM" 
: PRINT: Z=ABS (3000-K) »GOSUB 1650 


";: I=ER#A: GOSUB 1550 
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1420 PRINT" SCHEFFEL ";:IF K>=3000 THEN PRINT"VERMEHRT. " 
:G0TO 1440 
1430 PRINT"VERMINDERT. " 
1440 PRINT: Z=ABS (1000-L) :GOSUB 1650 
:PRINT" MORGEN LAND HAST DU "; 
1450 IF L>=1000 THEN PRINT"ERWORBEN. ":60T0 1470 
1460 PRINT"VERLOREN. " 
1470 PRINT:PRINT"ES KAMEN "3:Z=70:60SUB 1650 
:PRINT" LEUTE IN DEINE STADT." 
1480 PRINT: Z=HO: GOSUB 1650: PRINT" MENSCHEN STARBEN DES HU 
NGERS, " 
1490 PRINT=:PRINT"UND "z;:Z=P0:60SUB 1650 
:PRINT" AN DER PEST. {CU=AB}" 
1500 PRINT" {CU=AB}NOCH EIN VERSUCH?" 
1510 GET A$: IF A$=""THEN 1510 
1520 IF A$="N"THEN 2940 


1550 RUN 
1540 REMIELLLLLTLLLEIKREKEREKKTERKIRR NL 
1550 REM ZAHL DRUCKEN 


1560 REMKKELEHLLEEREEKRRERRTIKKLIRR INK 

1570 Z$=MID$ (STR$ (Z) ,2,LEN(STR$(Z))-1) 
IF ASC(RIGHT$(Z$,4))=69 THEN 1620 

1580 LE$=MID$(STR$ (LEN (Z$)-1),2)+" " 

1590 IF Z>IE& AND Z<1E9 THEN Z$=LEFT$(Z$,1)+"."+MID$S(Z$,2, 
1)+"E+"4LE$S:GOTDO 1640 

1600 IF LEN{Z$)<8 THEN Z$=" "+7$+" ",G0T0 1590 

1610 GOTO 1640 

1620 IF MID$(Z$,2,1)="E"THEN Z$=LEFT$(Z$, 
1)+".0"+RIGHT$ (Z$,4):60T0 1640 

1630 Z$=LEFT$S(Z$, 3) +RIGHT$ (Z$,4) 

1640 F=X+40%Y:G60SUB 60:PRINT Z$5 " {WHT,RVSOFF}"3 RETURN 

1650 IF Z>=1E+6 THEN X=PEEK(CX) : Y=PEEK(CY):GOTO 1570 

1660 Z$=STR$(Z):PRINT Z$; " {WHT,RVSOFF}"3 3 Z=0:RETURN 

1670 REMEIKHLEKEKEREIERKEKKITIKHERKKERER 

1680 REM NEGATIVE EINGABEN 

16590 REMIKKEEKLLRERKEKKKRKRKEKETLRENENE 

1700 GOSUB 1830 . 

1710 PRINT"+++++ UNBEKANNT IST MIR, OD HERR, ":PRINT 
:PRINT"DIE{LEERT.3>HIEROGLYPHE ’— ı" 

1720 LL=-1:RETURN 

1730 REMIEKLLIKEKERREKKKTLKRKLIKELEREREN 

1740 REM UNZULAESSIGE EINGABEN 

1750 REMRFELEKEERKEKERERKRTRIKREKKERE NE 


1760 GOSUB 1850: PRINT"+++++ BEDENKE NOCHMALS, 0 HERRSCHER, 


1770 X=12: Y=22 

1780 PRINT"DU HAST NUR ";3:0N F4 GOTO 1790, 1800, 1810 

1790 Z=K:60SUB 1570:PRINT" SCHEFFEL KORN!":G60T0 1820 

1800 Z=L:60SUB 1570:PRINT" MORGEN LAND!":G0T0 1820 

1810 Z=EW:GOSUB 1570: PRINT" UNTERTANEN!" 

1820 LL=-1:RETURN 

1850 IF LL THEN FOR I=1 TO 3000: NEXT 

1840 F=800:60SUB 60:FOR I=1 TO 120:PRINT CHR$ (32) 35 :NEXT 

1850 F=800:60SUB 60:L1=0 

1860 RETURN 

1870 REMEEKKEKKEKERKERKIEKKLEKKKERTKENK 

1880 REM UVEBERSCHRIFT 

1890 REMIEKEKRRELKTEKKTEIKTEKKERRREKE NN 

1900 F=960:G0SUB 60: PRINT FA$+" {RVSON,C=+.403"; 

1910 PRINT" {C=+.403"; 

1920 PRINT" {C=+.403"; 

1930 PRINT" {C=+.403"; 

1940 PRINT" {C=+.40,RVSOFF,WHT3"5 

1950 FOR I=1 TO 19:PRINT:NEXT 

1960 PRINT" {HOME, CU=AB. 2, CU=RE. 8>R{CU=REIA{CU=REIM{CU=RE)I 
S{CU=REFE{CU=REIS{CU=RE. 23 VOM{CU=RE. 23N{CU=RE} I {CU=RE)I 
1:73 

1970 PRINT" {CU=AB.2}" 

1980 RETURN 

1990 REMEKKEKKEKKKRIEKILEKTLTKLIKRENTNE 

2000 REM BANKROTT 


2010 REMZELLEELKEKIKLKEIIRIKEHEEL FRI 


2020 GOSUB 1900: PRINT" {CU=AB.2}>DU HAST ES GESCHAFFT '!t'xc 
U=ARB}" 
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1570-1660 Da während des Spiels bei 
guter Führung sowohl für die Einwohner 
als auch für die Kornvorräte sehr große 
Zahlen (bis zu 10°) erzeugt werden kön- 
nen, mußte eine Routine geschaffen wer- 
den, um diese Zahlen in eine lesbare Form 
zu bringen. Überflüssige »Nachkomma- 
stellen« werden abgeschnitten. 


1700-1720 Fehlermeldungen bei negati- 
ven Eingaben. LL wird benötigt, um eine 
Zeitschleife in Zeile 1830 zu durchlaufen. 


1760-1820 Abhängig von der Fehlerur- 
sache wird ein unterschiedlicher Fehler- 
text ausgedruckt und ins Hauptprogramm 
zurückverzweigt. 


1830-1860 Wenn LL auf -1 steht, wird 
die Zeitschleife durchlaufen. Der Eingabe- 
bereich auf dem Hauptbildschirm wird mit 
120 Leerstellen gelöscht. 


1900-1980 Hier wird die Überschrift er- 
zeugt, die zusammen mit Textausgabe 
auf dem Bildschirm erscheint. 


2020-2040 Wenn endlich der letzte Ein- 
wohner durch Pest oder Hunger dahinge- 
rafft wurde, wird diese Routine durchlau- 
fen, und zum Spielende verzweigt. 


2080-2510 Erläuterungen für den Spie- 
ler, der sich zum ersten Mal mit diesem 
Spiel auseinandersetzt. 


2550-2600 Titel des Spiels zu Beginn 


2640-2890 Das Spiel wäre nur halb so 
interessant, wenn man nicht die schöne 
Anschlagtafel hätte, auf die unsichtbare 
Diener immer den aktuellen Stand der Ein- 
wohnerzahl, der Kornvorräte und des 
Landpreises aufmalten. 


2050 PRINT"DEIN VOLK IST VOLLST\NDIG AUSGEROTTET!" 

2040 PRINT" {CU=AB.7}DAS IST DAS ENDE":G0TO 2940 

2050 REMIZELLEREKELIRKKERKREKKEKEREK UNE 

2050 REM ERLAEUTERUNGEN 

2070 REMIZELEKZEKLRLERKIERKKERUEI KR RER 

2080 GOSUB 1900: 

2090 PRINT"WILLST DU VERGR$SSSERN DEIN REICH, "=PRINT 

2100 PRINT"SO KAUFE LAND. ":PRINT 

2110 PRINT"BEDENKE JEDOCH, DASS DEIN VOLK KORN"=PRINT 

2120 PRINT"ZUM LEBEN BRAUCHT UND DASS DIESES GUT":PRINT 

2150 PRINT"ZUR ERN\HRUNG BESTIMMT IST UND NICHT"=:PRINT 

2140 PRINT"ZUR BEFRIEDIGUNG DEINER MACHTANSPRICHE":=PRINT 

2150 G60SUB 2490: FA$="{VEL}":GOSUB 1900 

21&0 PRINT"WENN DU LAND VERKAUFEN WILLST, UM DES":PRINT 

2170 PRINT"VOLKES HUNGER ZU STILLEN, SO MERKE,":=:PRINT 

2180 PRINT"DASS DEIN LAND NICHT SO GROSS IST WIE"=PRINT 

2190 PRINT"DAS REICH DER G$TTER UND DASS DU DEN":PRINT 

2200 PRINT"DEN BODEN VERKAUFST, AUF DEM DAS KORN":PRINT 

2210 PRINT" ZUKSONFTIGER GENERATIONEN GEDEIHEN SOLL.";3:PRINT 

2220 GOSUB 2490:60SUB 1900 

2230 PRINT"WILLST DU KORN ERNTEN, SO MUSST DU S\EN":PRINT 

2240 PRINT"KORN ZUERST, DAMIT DER G$TTER SEGEN" :PRINT 

2250 PRINT"WACHSEN L\SST, WAS DEINE UNTERTANEN":=PRINT 

2260 PRINT"PFLANZEN. ":PRINT 

2270 PRINT"BEDENKE DABEI, DASS JEDER BÖRGER NUR": PRINT 

2280 PRINT"VIER MORGEN IM JAHR BESORGEN KANN. ":PRINT 

2290 GOSUB 2490: 6G0OSUB 1900 

25300 PRINT"WILLST DU EIN GUTER UND GERECHTER HERR- "7; 
PRINT 

2510 PRINT"SCHER SEIN, SO TEILE AN JEDEN DEINER ":PRINT 

25320 PRINT"UNTERTANEN KORN AUS. SIE BEN$TIGEN":PRINT 

2550 PRINT"PRO KOPF VIER UND EINEN HALBEN SCHEFFEL,"z 
PRINT 

2540 PRINT"UM GESUND UND GLOCKLICH ZU SEIN." 

2350 GOSUB 2490: G60SUB 1900 

2360 PRINT"WILLST DU JEDOCH VERMEHREN DIE ZAHL DER rn 
:PRINT 

25370 PRINT"UNTERTANEN, SO TEILE JEDEM BöÖRGER":PRINT 

25380 PRINT"NEUN SCHEFFEL ZU. DEIN GROSSMUT WIRD":PRINT. 

2390 PRINT"SICH WIDERSPIEGELN IM ZULAUF IN DEIN":PRINT 

2400 PRINT"REICH." 

2410 GOSUB 2490: 60SUB 1900 

2420 PRINT"SO WONSCHE ICH DIR FÖR DEINE ZEIT":PRINT 

2430 PRINT"ALS HERRSCHER SBER DAS LAND DEN SEGEN": PRINT 

2440 PRINT"DER G$TTER. M$GE DER RUF DEINER": PRINT 

2450 PRINT"WEISHEIT UND GERECHTIGKEIT ERKL INGEN" » PRINT 

24680 PRINT"BIS IN FERNE JAHRTAUSENDE. " 

2470 GOTO 2490 

2480 RETURN 


2490 F=920:60SUB 50:PRINT" {LEERT.7}SCHLAGE DEINEN DIENER! 

"n 
’ 

2500 GET A$: IF A$=""THEN 2500 

2510 RETURN 

2520 REMEKKKEREKERERREKREKKKEKKEKKETEN KG 

2530 REM TITEL 

2540 REMEEKIRRKEKRKEKERKKEKKITKKKK KEN ENG 

2550 PRINT" {CLEAR,YEL,RVSON}"z3:FOR I=1 TO 999 
:PRINT"{C=+}"3:NEXT:POKE 2023,230:POKE 56295,7 
: PRINT" {WHT, CU=AUF} "5 

2560 PRINT" {RVSOFF „HOME , CU=AB. 6, CU=RE. 8IR{CU=RE}A{CU=RE}IM 
{CU=RE}S{CU=RE+E {CU=RE}S{CU=RE. 2>VOM{CU=RE. 2>N{CU=RE>I 
{CU=RE}IL" 

2570 PRINT" {CU=RE.3,CU=AB. SEIN{CU=RE}MANAGMENTSPIEL{CU=R 
EIAUS {CU=RE}DER (CU=RE}ANTIKE" 

2580 PRINT" {CU=AB. 4, CU=RE.8}COPYRIGHT {CU=RE} 1983 {CU=RE. 23 
BY{CU=RE.2}VRIL"; 

2590 GET A$:IF A$=""THEN 2590 

2600 RETURN 

2610 REMSKKEKKRRKKREKEHHEKKRKKRTEKENE N 

2620 REM SPIELAUFBERIETUNG 

2530 REMIKKEKRKKKKKKKKKKKKKRREKKTKKENEN 

2640 PRINT" {C=4,RVSON,C=K} {LEERT.37,RVSOFF,C=K}"; 
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su SIEHE DENN. OH RANSES 
DIE THFELN DEINER VERHALTER 


nv 


8 UND {CH FRAGE DEE BE 
-L GEORGEN HILLST DU KAUFEN 7 


jBm1P192 





2650 SA$="(C=5,RVSON,C=K} {RVSOFF,C=K,VEL}" 

2660 PRINT"{C=C,RVSON,C=F} {C=D,C=1.5,5=W,C=4,C0=1.19,5=W, 
C=4,C=1.4,0=F} {C=D,RVSOFF,C=V}"; 

2670 PRINT" {BLU,C=+3"SA$" (BLU, C=+. 3, WHT}SO{RED, S=W, 
WHT3SIEHE {BLU, C=+, WHTIDENN, {BLU,C=+, WHT}OH{BLU,C=+, 
WHTIRAMSES{BLU, C=+. 33 "SA$" (BLU, C=+} "3; 

2680 PRINT" {BLU,C=+3 "SA$" {BLU,C=+.5,RED, S=W, BLU,C=+. 19, 
RED, S=W, BLU, C=+. 43 "SA$" {BLU,C=+3 "3; 

2690 PRINT" {C=+3 "SA$" {BLU,C=+.2,WHT}DIE RED, S=W, 
WHT>TAFELN{BLU, C=+,WHT}DEINER{BLU,C=+, 

WHT} VERWALTER (BLU, C=+} "SA$" {BLU,C=+3 "; 

2700 PRINT" {BLU, C=+3 "SA$" {BLU,C=+.5, RED, S=W, BLU, C=+. 19, 
RED, S=W, BLU, C=+.43 "SA$" (BLU, C=+}"; 

2710 PRINT" {C=+3"SA$" (C=D,C=I.4,RED,S=W, YEL,C=I.19,RED, 
S=W, YEL,C=1.3,C=F}"SA$" (BLU, C=+3"3; 

2720 PRINT" {C=+3"SA$" (RVSON,C=K} {LEERT.27,RVSOFF, 
C=K}"SA$" (BLU,C=+>"; 

2730 PRINT" {C=+}"SA$" {RVSON,C=K} SCHEFFEL KORN{LEERT.S} 
: {LEERT.8, RVSOFF , C=K} "SA$" (BLU,C=+} "3; 

2740 PRINT" {C=+3"SA$" {RVSON,C=K} {LEERT.27,RVSOFF, 
C=K}"SA$" {BLU,C=+}>"; 

2750 PRINT" {C=+}"SA$" {RVSON,C=K} EINWOHNER{LEERT.9} 

: {LEERT.2} {LEERT.4,RVSOFF,C=K}"SA$" (BLU,C=+}"; 

2760 PRINT" {C=+3 "SA$" {RVSON,C=K,LEERT.9} {LEERT.18,RVSOFF, 
C=K}"SA$" (BLU, C=+3"; 

2770 PRINT" {C=+3"SA$" {RVSON,C=K} MORGEN LAND£{LEERT.7} 

: {LEERT.8,RVSOFF, C=K}"SA$" {BLU,C=+> "3; 

2780 PRINT" {C=+3 "SA$" {RVSON,C=K} {LEERT.27,RVSOFF, 
C=K}"SA$" (BLU, C=+3"; 

2790 PRINT" {C=+}"SA$" RVSON,C=K} SCHEFFEL JE MORGEN 
: {LEERT.8,RVSOFF ,C=K} "SA$" {BLU,C=+}"; 

2800 PRINT" {C=+3"SA$"{RVSON,C=K} {LEERT.27,RVSOFF, 
C=K}"SA$" (BLU, C=+3"; 

2810 PRINT" (C=+3 "SA$" {C=C,RVSON, C=I.28,RVSOFF, 

C=V} "SA$" (BLU, C=+3"; 

2820 PRINT" {C=+3 "SA$" {BLU,C=+. 303 "SA$" {BLU,C=+3 "3; 
2830 PRINT" {C=+3"SA$" {BLU,C=+.5,WHT}UND{BLU,C=+, 
WHT} ICH{BLU, C=+, WHTIFRAGE {BLU, C=+, WHT}DICH 

: (BLU, C=+.63"SA$" {BLU,C=+3"; 

2840 PRINT" {WHT,S=%,C=X} {C0=7,5=3.30,0=%X} {C0=7,5=4}"; 

2850 PRINT:PRINT:PRINT:PRINT 

2860 KX=25:KY= 8:X=KX: Y=KY: Z=K: PRINT" {RVSON, VEL}"; 
:G0SUB 1570 


94. 


2930-2940 Bevor das Spiel endgültig zu 
Ende ist, müssen dem Betriebssystem 
und dem BASIC-Interpreter die alten Wer- 
te für Bildschirm und Zeichensatz über- 
mittelt werden; Spielende. 


2950-3110 Eingaberoutinee Um den 
blinkenden Cursor vom Bildschirm zu be- 
kommen, wurde über den GET-Befehl 
(2980) der INPUT-Befehl simuliert. Unzu- 
lässige Eingaben werden abgefangen und 
aus den einzelnen Buchstaben der Ant- 
wortstring zusammengesetzt (3050). Bei 
Drücken der RETURN-Taste wird aus 
dem Unterprogramm zurückgesprungen. 
Der Eingabestring wird in IN$ dem Haupt- 
programm übergeben. 


3150-4310 In diesen Zeilen wird der 
neue Zeichensatz eingelesen, der in DA- 
TA-Zeilen im Programm aufgehoben ist. 
Zuvor muß der Zeichengenerator zugreif- 
bar gemacht (56334) und die BREAK-Ta- 
ste außer Kraft gesetzt werden (POKE 
1,51). Der Originalzeichensatz wird in den 
RAM-Bereich kopiert. Die Speicherstellen 
1 und 56334 werden auf ihren alten Wert 
gebracht und der kopierte Zeichensatz an 
den Stellen geändert, wo eine Änderung 
erforderlich ist. Der Rest bleibt erhalten. 
Die erste Zahl der DATA-Zeilen gibt den 
jeweiligen Bildschirmcode des geänder- 
ten Zeichens an. Der Klammeraffe wurde 
durch das Ü ersetzt, das Pfundzeichen 
durch das Ä, und das Dollarzeichen durch 
das Ö, Das erklärt auch die seltsame 
Schreibweise einiger Wörter im Listing. 


2870 LX=25:LY=12: X=L.X: Y=LY: Z=L: PRINT" {RVSON, YEL}"3 
:GOSUB 1570 

2880 X=25: Y=10: Z=EW: PRINT" {RVSON, YEL}"3:G6DSUB 1570 

2890 X=25: Y=14: Z=PR: PRINT" {RVSON, YEL}"3:60SUB 1570 

2900 REMZFZRIKRLERIIEKI RER I RER I KK III 

2910 REM SPIELENDE 

2920 REMZFZEKKZIEKIKEKEIERKE IK E LER III KR 

2930 RETURN 

2940 POKE &48,4:POKE 53272,21:POKE 56576, 199:END 

2950 IM$="": IN$="":7$="":7=IM: 60SUB 1650: IM$=7$: IN=O 
:G60T0 2970 

29580 PRINT IM$; : IN$="":IN=O 

2970 FOR I=1 TO LEN{(IM$) :PRINT" {CU=LI}"3:NEXT 
: PRINT" {CU=RE}"3; 

2980 GET IP$: IF IP$=""THEN 2980 

2990 IN=LEN (IN$) 

3000 IP=ASC(IP$):IF IP=153 THEN 3100 

5010 IF IP=20 AND IN>O THEN IN$=LEFT$(IN$,LEN(IN$)-1) 
:PRINT"{CU=L1.2,5=%} {CU=L1}>"3:60T0 2980 

3020 IF IP<4& OR IP>90 THEN 2980 

3050 ON IS GOTO 3070 

5040 IF{IP<48 OR IP>S7)AND IP<>&69 AND IP<>45 THEN 2980 

5050 PRINT" {CU=LI}>"IP$; "(S5=%#}";:IN$=IN$+IP$ 

50580 GOTO 2980 

3070 IF IP<d5 OR IP>90 THEN 2980 

5080 PRINT" {CU=LI>"IP$; "{S=#}" 3: 1IN$=IN$S+IP$ 

5090 G0TD 2980 

5100 IF IN=0 THEN IN$=IM$: IM$="":PRINT:RETURN 

Ss110 PRINT"{CU=LI} ":RETURN 


PS ee ee Zr ee 
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3120 REMKEKEKHKKERRREKEIEKTEREKREKER NN 

3130 REM ZEICHENSATZ 

3140 REMKEKKKRKRKRKEKKRREKKEREKEREKRENEN 

3150 POKE 56334,0:POKE 1,51 

3150 FOR I=0 TD 2047:POKE 34816+1,PEEK (53248+I) :NEXT 

3170 POKE 1,55:POKE 56334, 129 

3180 READ A:IF A=-1 THEN RETURN 

3190 FOR J=0 TO 7:READ B:POKE 34816+A%*8+J,B:NEXT:GOTO 3180 
3200 DATA O „54,0,99,99,99,99,99,127 


3210 DATA 1 „127,99,99,99,127,99,99,99 
3220 DATA 2 „124,102,99,110,110,99,102,124 
3230 DATA 3 ‚126,103,96, 96, 96, 96, 103,126 
3240 DATA 4 „120,108,102,99,99,102,108, 120 


3260 DATA & „127,96,96, 96,126, 96, 96,96 

3270 DATA 7 „127,99,96,96,111,99,99,127 
3280 DATA 8 „99,99,99,99,127,99,99,99 

3290 DATA 9 „60,24,24,24,24,24,24,60 

3300 DATA 10 „30,12,12,12,12,12,108,124 
3310 DATA 11 ,„99,102,108,120,120,108, 102,99 
3320 DATA 12 „96,96,96, 96,96, 96,96, 127 

3330 DATA 13 „99,119,127,107,99,99,99,99 
3340 DATA 14 „99,115,123,127,111,103,99,99 
3350 DATA 15 ‚127,99,99,99,99,99,99, 127 
3360 DATA 16 „124,102,99,102,124,96, 76,96 
3370 DATA 17 „127,99,99,99,99,99,102,123 
3380 DATA 18 „124,102,99,102,124,108,102,99 


1 
2 
3 
4 
3250 DATA 5 ‚127,96, 96, 96,126, 96,96, 127 
6 
7 
8 
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353590 
3400 
5410 
35420 
5430 
3440 


3460 
53470 


3490 
3500 
s510 
3520 
3530 
3540 
s550 
3560 
3570 


35970 


5610 


3650 


4010 
4020 
4050 
4040 


4050 
4070 
4080 
4090 
4100 
4110 
4120 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
33 
36 
44 
46 
47 


49 
50 
51 
52 
53 
54 
55 
56 
57 
63 


177 


172 
164 
161 
159 
158 
157 
156 
154 
1553 
152 
151 
150 


‚15,56,96,56,14,3,14, 120 
„126,24,24,24,24,24,24,24 
,99,99,99,99,99,99, 99,127 
,99,99,99,99,99,54,28,8 
‚99,99,99,107,127,119,99,99 
‚99,99,54,28,28,54,99,99 
‚99,99,54,28,24,48,96,96 
„127,3,6,12,24,48,96,127 
‚60,48,48,48,48,48,60,0 
‚99,0,127,99,127,99,99,99 
‚0,240, 120,63,63,120,240,0 
‚0,0,0,255,255,0,0,0 
‚8,12,14,255,255,14,12,8 
‚24,24,24,24,24,0,24,24 
‚99,0,127,99,99,99,99,127 
‚0,0,0,0,0,12,24,48 
‚0,0,0,0,0,0,24,24 
‚0,3,6,12,24,48,96,0 
‚28,54,99,99,99,99,54,28 
„12,28,60,108,12,12,12,12 
‚60,102,7,14,56,112,96, 127 
„124,6,7,28,6,3,6, 124 
‚99,99,99,99,127,3,3,3 
‚127,96, 96,127,3,3,3,127 
‚127,96, 96,127,99,99,99,127 
327,7,6,12,12,12,12,12 
‚„127,99,99,127,99,99,99,127 
‚127,99,99,99,127,3,3,127 
‚127,99,3,3,31,24,0,24 
‚0,1,2,5,10,21,42,85 
‚0,0,24,0,0,24,24,48 
‚0,0,0,7,56,192,0,0 
‚170,85,42,21,10,5,2,1 
‚0,60,126, 126,126, 126,60,0 
‚170,85,42,21,10,5,2,1 
‚128,64,160,80,168,84, 170,85 
‚170,84, 168,80, 160,64,128,0 


‚170,85,170,85, 170,85, 170,85 
‚201,255, 156, 156, 156, 156, 156, 128 
‚85,170,85,170,85,170,85,170 
‚85,171,87,175, 95,191, 127,255 
‚127,191,95,175,87,171,85,170 
‚127,191, 95,175,87,171,85, 170 
‚128,156, 156, 156, 128, 156, 156, 156 
‚131,153, 152,145, 145,152, 153, 131 
‚131,152,156, 159, 159,156, 152,131 
‚85,170,85,170,85, 170,85, 170 
‚231,195,129,153, 153,129, 195,231 
‚128, 156, 252, 252, 224, 231, 255, 231 
‚255,255, 231,255, 255,231, 231,207 
‚128,156, 156, 156, 128, 252, 252,128 
‚128,156, 156,156, 128,156, 156, 128 
‚128, 252,249, 243,243,243, 243,243 
‚128,159,159,128, 156,156, 156, 128 
‚128,159, 159,128, 156, 156, 156, 128 
‚128,159, 159,128, 252,252, 252,128 
‚156, 156, 156, 156, 128, 252, 252, 252 
„131,249, 252, 227,249, 252,249, 135 
‚195,153, 252,241,231,207,159,128 
„243,227,195,147,243,243, 243,243 
‚227,201, 201,156, 156, 156, 201,227 
‚255, 255,255, 255, 255, 231, 231,255 
‚255, 255, 255, 255, 255, 243, 231,207 
‚201,255, 128,156, 156, 156, 156, 128 
‚231,231, 231,231, 231,255, 231,231 
„247,243,241,0,0,241,243,247 
‚255, 255, 255,0, 0,255, 255, 255 
‚255,31,143,192,192,143,31,255 
‚201,255, 128,156, 156, 128, 156, 156 
‚128, 252,249, 243,231,207,159,128 
„156, 156, 201,227, 231,207, 159,159 
‚156,156, 201,227,227,201,156, 156 
‚156, 156,156, 156, 148, 128,136, 156 
‚156,156, 156,156, 156, 193, 227,247 


Die Technik der Aufstellung eines neuen 
Satzes ist genau die gleiche, die Sie vom 
Programmieren von Sprites gewohnt sind. 


4130 DATA 149 „156,156, 156, 156, 156, 156, 128, 128 
4140 DATA 148 „129,231,231,231,231,231,231,231 
4150 DATA 147 „240,199,159,199,241,252,241,135 
4160 DATA 146 „131,153,156,153, 135,147, 153,156 
4170 DATA 145 „128,156, 156, 156, 156, 156, 153, 132 
4180 DATA 144 „131,153,156,153,131,159,159,159 
4190 DATA 143 „128,156, 156, 156, 156, 156, 156, 128 
4200 DATA 142 „156,140,132,128,144, 152,156, 156 
4210 DATA 141 „156,136, 128,148, 156, 156, 156, 156 
4220 DATA 140 „159,159,159,159,159,159,159,128 
4230 DATA 139 „156,153, 147,135, 135, 147,153, 156 
4240 DATA 138 „243,243,243,243,243,243, 195,195 
4250 DATA 137 „231,231,231,231, 231,231, 231,231 
4260 DATA 136 „156,156, 156, 156, 128, 156, 156, 156 
4270 DATA 135 „192,156, 159,159, 144,156, 128,128 
4280 DATA 134 „128,159,159,159, 129,159, 159,159 
4290 DATA 133 „128, 159,159, 159, 129,159, 159,128 
4300 DATA 132 „135,147,153,156, 156, 153, 147,135 
4310 DATA-1 


+ * + 
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Geschrieben in Microsoft-Basic für den Dragon 32 


»Kniffel« ist in seiner Originalform ein Würfelspiel, bei dem man mit Würfeln 
ähnliche Kombinationen wie beim Poker erreichen muß. Die Programmie- 
rung dieses Spiels ist eine Übung in logischer Verknüpfung. Dieser Übung 
hat sich freiwillig einer meiner Schüler, Bernd Dinow, unterzogen. Das 
Ergebnis seiner Arbeit hat mich als seinen Lehrer stolz gemacht. Es waren 
nur wenige Tips notwendig, um das Programm in die vorliegende Fassung 
zu bringen. Diese Tips beschränkten sich hauptsächlich auf die Eingabe. 

Die Regeln des Spiels sind einfach: Gespielt wird mit fünf Würfeln, jeder 
Spieler hat pro Runde drei Würfe. Von diesen Würfen kann er, wenn er 
möchte, einen oder mehrere Würfel herausnehmen und nur mit den restli- 
chen weiterwürfeln. Es gibt insgesamt 13 Runden. In jeder Runde muß 
sich der Spieler entscheiden, für welche der 13 Möglichkeiten er seinen 
Wurf verwerten will. Folgende Kombinationen sind möglich: 


Einser Bei dieser Kombination werden nur die geworfenen Einsen 
gewertet. 

Zweier Hier nur die Zweien, 

Dreier Dreien, 

Vierer Vieren, 

Fünfer Fünfen 

Sechser und Sechsen. 

Dreierprasch Der Wurf zählt in voller Höhe, wenn ein Dreierpasch 
erreicht wird. 

Viererpasch Wie Dreierpasch, nur daß hier ein Viererpasch geworfen 
werden muß. 


Full House Ein Dreier- und ein Zweierpasch zählen 25 Punkte. 
Kleine Straße Eine Folge von 4 aufeinanderfolgenden Zahlen zählt 30 


Punkte. 
Große Straße Fünf aufeinanderfolgende Zahlen bringen 40 Punkte. 
Kniffel Fünf gleiche Zahlen (Fünferpasch) zählen 50 Punkte. 
Chance Hat man für einen hohen Wurf keine andere Verwendung, 


so kann er in voller Höhe hier verrechnet werden. 
Erreicht man mit den ersten sechs Kombinationen mehr als 62 Punkte, so 
erhält man dafür einen Bonus von 35 Punkten. 
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Das Spiel ist eingerichtet für einen bis vier Spieler. Der erste Spieler wird 
durch Zufall ermittelt. Die Zahl der Spielrunden kann vorher eingegeben 
werden. Mit der Leertaste wird gewürfelt, mit den Zahlen Eins bis Fünf wird 
bestimmt, mit welchen Würfeln weitergeworfen wird, oder diese Entschei- 
dung wieder rückgängig gemacht. Mit der Taste »Pfeil nach unten« wer- 
den sämtliche Würfel in den »Würfelbecher« zurückgenommen. Die Wahl, 
welcher Platz der Wertetabelle mit dem Wurf belegt werden soll, wird 
durch die Tasten getroffen, die auf dem Bildschirm schwarz auf grün 
sichtbar sind. Es ist nicht möglich, einen Platz zweimal zu belegen. 

Bleibt nur noch zu sagen: »Viel Glück!« (AW) 


++ + 
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40 Es muß eine Zufallszahl, abhängig 10 ’RERKEEKKEREKKEKEKEKKEKKRE EEK 
20 ’ VORBEREITUNG 

uRen Ber ein u. 3O ?EEERIERKERKEREKTEKKKEKIKE UNE 

um zu verhindern, daß der Computer nac 20 L=RND(TI) 

dem Anschalten immer die gleichen Zah- 

len wirft. 


60-90 Die DIM-Anweisungen in diesen 
Zeilen haben folgende Bedeutungen: 

S$(4), F1$(4) und F2$(4) dienen zur 
Aufbewahrung der Spielernamen und ih- 
rer Anfangsbuchstaben während des 
Spiels, 


50 CLS 3 

60 DIM S$(4) ,F1$(4),F2$(4) ,A(6),B(6),C(6) 

70 DIM PP(4),PL(4),57(4),5X(4),01(4),02(4), 
03(4) ,04(4),05(4) ,06(4) 

80 DIM 01(4),02(4),03(4),04(4) ,05(4),06(4),07(4) 

90 DIM 66(4,6) ,6H(4),KN(4) „KM(4) ,KP(4) 


A(6), B(6) und C(6) enthalten in den ver- 
schiedenen Stadien des Spiels den Wert 
der Würfel. Q1(4), Q2(4), Q3(4), Q4(4), 
Q5(4), Q6(4), O1(4), O2(4), O3(4), O4), 
O5(4), O6(4) und O7(4) enthalten Schalter, 
die bei Belegung eines Platzes in der Wer- 
tetabelle auf 1 gesetzt werden. SZ(4) ent- 
hält die Summe der oberen sechs Kombi- 
nationen, SX(4) die Summe der unteren 
sieben. Das Gesamtergebnis ist in GG ge- 
speichert. In PL und PP ist die Anzahl der 
Runden gespeichert. Das letzte Ender- 
gebnis befindet sich in GH, Bonuspunkte 
werden in KP aufbewahrt. 





Barren nee 


ne 
ee Me 


100-350 Die Eingaben, die vor dem Be- 2. ee ge, 
= . . . “ ” 3 
ginn des Spiels notwendig sind, werden in 120 PRINTS7S. "axassauesee" ; 
diesen Zeilen eingegeben. 130 PRINTS225, "SPIELER (1-4)"3 
140 Um Fehleingaben zu vermeiden, 140 Y$=INKEY$ 
wird eine INKEY-Abfrage auf den ASCIl- sIF Yg=r" ze GOTO 140 
L=ASC (Y$) 
Oode zwischen 49 und 52 begrenzt (1 bis Ir L2A® DR 1388 
4). THEN GOTO 140 
ELSE PRINTS239,Y$; :N=VAL (Y$) 
150 Der erste Spieler wird durch eine Zu- 150 T=RND (N) 
fallszahl bestimmt und in T aufbewahrt. 
150 PRINTS241, "RUNDEN (1-6)"3; 
160-170 Die Rundenzahl (1 bis 6) wird "7° STr ysoe THEN 60TO 170 
wieder über den ASCII-Code begrenzt. ELSE L=ASC (Ys$) 
sIF L<49 OR L>54 
190 QW$ ist ein Löschstring aus 19 blau- THEN S0T0 170 
en Kästchen, mit dem zu lange Eingaben 180 L=0 BIER: BNERUEN NARN 2 ER ER CED 
überschrieben werden können. 190 QW$S=STRING$ (19,175) 


101 


200 


210 
220 
230 
240 
250 
260 
270 
280 


Ss00 
310 


320 
S350 
340 
350 
360 
370 
380 


3970 
400 


410 


420 


430 


102 


FOR I=1 TON 
: 11$=STR$ (I) :PRINTSS21+32% (I-1), I1$;5". SPIELER "; 
ı INPUTS$ (I) 
PRINTS3335+32% (1-1) ,OWs; 
PRINTS335+32% (I-1),S$(TD); 
PRINTS320+32%1,STRING$ (32,175); 
IF LEN(S$(I))>9 THEN 60TO 280 
SI$(I)=LEFT$(S$(I),1) 

NEXT I 

GOTO 340 

I=I-1 

PRINTSSSS+32% (I) ‚OW$; 

VS$=STRING$ (30,175) 

PRINTS481, "NAME ZU LANG.NUR 9 BUCHSTABEN! "; 

:FOR J=1 TOD 1000: NEXT J:PRINTS481,V5$; 

SIS(I)=LEFT$(S$(I),1) 

NEXTI:60T0200 

PRINTS489, "BEGINN: <ENTER>"3 

IF INKEY$<>CHR$ (13) THEN GOTO 350 

ERRELIKTKKKRKKEKKEK TIERE EK 

’ BILDSCHIRMAUFBAU 

KRRRKILKKKKRRKKTUKE REKEN EN 


HURF 
EEE | 


SUHHE LI 
Sa ERL EEE I 
gegen 


ECLS © 
E=E+1 


FOR I=1 TO & 
:PRINTS (I+1) &32,MID$("EZDVFS",1,1)5 
:NEXT 


FOR I=1 TO 7 
:PRINTS (1%52+16) „MID$("dRevlefUlKleGrokNicHa", 183-2,3); 
:NEXT I 


A1$=STRING$ (2, 175) »A2$=STRING$ (3,175) 


200-330 Eingabe der Spielernamen und 
Überprüfung auf die maximale Länge. 





390-570 Der Bildschirm ohne Würfel 
wird aufgebaut. 


410 Die Buchstaben E,Z,D,V,F und S 
(Einser, Zweier, Dreier, usw.) werden 
senkrecht untereinander ausgedruckt. 


420 Die Buchstabenkombinationen für 
die restlichen Möglichkeiten werden auf 
die gleiche Art auf den Bildschirm ge- 
bracht. 


430 A1$ und A2$ werden benötigt, um 
auf der späteren Wertetabelle die Plätze 
anzuzeigen, die noch nicht belegt sind. Sie 
enthalten zwei bzw. drei blaue Kästchen. 


440-450 Diese Plätze werden hier aus- 
gedruckt. 


460-480 Die restliche Bildschirmaufbe- 
reitung 


490 L1$ enthält einen Löschstring zum 
Überschreiben des letzten Spielerna- 
mens. Aus L2$ bis L4$ wird die Grundflä- 
che für die Würfel aufgebaut. In den Tabel- 
len F1$ und F2$ stehen die Anfangs- 
buchstaben der Spieler. 


580-690 Das Spiel beginnt mit leeren 
Würfelflächen und dem Ausdrucken des 
Spielers, der an der Reihe ist. Die aktuelle 
Runde (E) wird auf den Bildschirm gePO- 
KEt, um sie grün auf schwarz zu erhalten. 
Der PEEK in Zeile 680 wartet auf das 
Drücken der Leertaste. 


730-750 Durch Zufallszahlen zwischen 1 
und 6 wird das Würfeln simuliert. 


760 WW enthält den Wurf pro Spieler. Die 
Zahl wird auf den Bildschirm gePOKEt. 


780 Die Zahl der Würfe ist auf drei be- 
grenzt. 


790-810 Der alte Wurf wird gelöscht. 


440 


450 


450 
470 


480 


7509 


7680 
770 


780 


7909 


800 


810 


820 


FOR I=1 TON 
:FOR J=1 TO & 
:PRINTSS8+35# (I-1) +322(J-1) ,Al$; 
NEXT J 
:NEXT I 
FOR I=1 TON 
:FOR J=1 TO 7 
:PRINTSS2+3#2 (1-1) +32#2(J-1),Al$;z 
:NEXT J 
:NEXT I 
PRINTS288, "wurf"3:PRINTS3SS2, "runde"; 
PRINTS416, "summe" 3; CHR$ (128); "1i"5 
:PRINTS448, "summe" ; CHR$ (128); "re"; 
:PRINTS480, "endsumme"; 
FOR I=1 TON 
»FOR J=1 TO S 
:PRINTS429+5% (1-1) +32%2 (J-1) „A2$; 
:NEXT J 
NEXT I 
L1$=STRING$ (15,128) 
L2$=S5TRING$ (3,207) 
LS35$=CHR$ (197) 
L4$=CHR$ (207) 
Fi$(1)=S51$(1):F1$12)=S1$ (2) 
:F1$(3)=S516 (I) :F1$6(4)=51$ (4) 
F2$(1)=S51$(1):F26(2)=S1$ (2) 
»F2$(5)=51$ (5) :F2$(4)=51%$ (4) 
"HEREREKKEKKEIKI KIT EIE RR 
xx DAS SPIEL “x 
"RERERIIKIKIKIKER IR E RE HU R 
FOR 6=1 TO 15#N 
FOR B=T TO T+N-1 
IF B>N THEN B=B-N 
PRINTS2,L1$%; :PRINTSS2,L1$%; :PRINTS16,L1$%; 
PRINTS4+3% (B-1) ,5$(B) 5; :PRINTS20+3# (B-1),F1$(B); 
: PRINTSS6+3%# (B-1) „CHR$(170)3 
PRINTS428+5% (B-1)+32,F2$(B); 
A$=CHR$ (205) +CHR$ (207) +CHR$ (205) 
B&=CHR$ (205) 
EE=ASC (MID$ (STR$ (E) „2, 1)) :POKE1024+358, EE 
SCREENO, 1 
IF PEEK(345)=223 THEN WS=1:60T0 730 
G0TO 580 
"EERIKKREKKIIEKIREKK IE I R 
" WURF UND WUERFEL 
"ERRIRKEIEKEKEKTIRKIE RER 
FOR I=1 TO 5 
IF A(I)=0 THEN A(I)=RND(6) 
NEXT I 


Wu=WW+1 
WV=ASC (MID$ (STR$ (WW) „2,1)) :POKE 1024+294,WV 


IF WW>=4 THEN GOTOD 1210 ELSE GOTO 790 


FOR I=1 TO 5 
:FOR J=1 TO 3 
:PRINTS298+4% (I-1) +32% (J-1),1L2$%; 
NEXT J 
NEXT I 
FOR L=1 T0 5 
:FOR J=1 TO 3 
»PRINTS297+48 (L-1) +32% (J-1) ,„CHR$ (197) 3; 
NEXT J 

:NEXT L 

AS$=STRING$ (3,204) 

:FOR L=1 TO 5 
:PRINTSS9S3+4% (L-1) „CHR$ (196); 
:PRINTSS94+4% (L-1) ,A5$3 

NEXT L 

c=1 


103 


850 
840 
850 
880 
870 
880 


FOR 1=1T05 

FOR J=1T06 

IF AtJ)=I THEN B(C)=A(J)sC=C+1:AlJ)=O 
NEXT J,I 

FOR I=1 TO S:A(TI)=B(I)=sNEXT I 

FOR K=1 TO S:W(B(K))=WIB(K))+1:NEXT K 


890 FOR 1=1T05 


900 
910 
920 
930 
9409 
950 
980 
9770 
780 
9790 
1000 
1010 
1020 
1050 
1040 
1050 
1050 
1070 
1080 
1090 
1100 
1110 


1120 


104 


Y=531: Y=Y+48 (1-1) 


IF B{I)=4 OR B(I)=5 OR B(I)=& THEN G60T0 980 


IF B({I)=1 OR B{I)=Z THEN G0T0 950 
IF B(I)=2 THEN 60T0 1040 
G0TO 960 
PRINTSY,B$; 
IF B(I)=3 THEN GOTO 1040 
60TO 1050 
PRINTS (Y-33) „A$3 :PRINTS (Y+31) ‚As; 
IF B(I)=5 G0T0 950 

IF B(I)=& GOTO 1020 

G0TO 1050 

PRINTS (Y-1),A$; 

GOTO 1050 

PRINTS (Y-31) ,B$; :PRINTS (Y+31) ,Bs$3 
SOUND10,1 
NEXT I 
’ERERKEKEKRKKRKRKKKT ERKENNE 
’ EINGABEN DER SPIELER 
’KEERTLLKKELRKRERKLLEKRRENE 
Y$=INKEY$ 
IF Y$="1" 

THEN WS=0:SDUND 150,1 

sIF Atı)=o 
THEN A(1)=B(1):PRINTS299,1L4$; 


ELSE A(1)=0: JJ=1:PRINTS299,L3$; 


:G0TO 1100 
IF Y$="2" 
THEN WS=0: SOUND 150,1 
»IF A(2)=0 
THEN A(Z2)=B(2) :PRINTSS0S,L4$; 


ELSE Ai2)=0:JJ=1:PRINTSS03,L3$%; 


»:G0T01100 


830-860 Die geworfenen Zahlen werden 
in der Tabelle B gespeichert. 


CHRISTOPH 





890-1060 Aus A$ und B$ werden die 
Würfelflächen aufgebaut. A$ enthält zwei 
schwarze Punkte, B$ enthält einen. Ein 
kurzes Tüüt — und »alea iacta est«! 


1100-1160 Hier hat der Spieler die Mög- 
lichkeit, durch Drücken der Zahlentasten 1 
bis 5 den Wert des Würfels mit der ent- 
sprechenden Zahl zu löschen. Die Kenn- 
zeichnung des Würfels erfolgt durch einen 
senkrechten Balken am oberen Rand des 
Würfels. Sollte sich der Spieler mal ver- 
tippt haben, kann er immer noch durch 
erneutes Drücken dieser Zahl den alten 
Zustand wiederherstellen. Der Pfeil nach 


unten gibt alle Würfel zum erneuten Wurf 
frei. Diese Entscheidung ist allerdings nur 
mit fünf Tastendrücken rückgängig zu ma- 
chen. JJ ist ein Schalter, der diese Rück- 
holfunktion erst ermöglicht. In Zeile 1180 
wird mit der Leertaste erneut geworfen. 


1220-1340 Hier kann der Spieler endlich 
seine Fehlentscheidungen treffen. Schau- 
en wir uns mal an, was z.B. nach dem 
Drücken der Taste S für »Sechser« ge- 
schieht (1270). Zuerst wird abgefragt, ob 
der zum Spieler gehörende Schalter Q6(B) 
noch auf Null steht. Wenn das der Fall ist, 
wird an der entsprechenden Position der 
Wert des Wurfes ausgedruckt. Die Sum- 
me der oberen sechs Kombinationen wird 


1150 


1140 


1150 


11680 


1170 
1180 
1190 
1200 
1210 





1220 IF Y$="E" 


1250 IF Y$="7" 


IF Y$="3" 
THEN WS=0: SOUND 150,1 
IF A(Z)=0 
THEN A(3)=B (3) :PRINTSS07,L4$; 
ELSE At3)=0: JJ=1:PRINTS307,L3$; 
:G0T0 1100 
IF Y$="q" 
THEN WS=0:SOUND 150,1 
IF At4)=0 
THEN A(4)=B(4) :PRINTS311,1L4$%; 
ELSE A(4)=0:JJ=1:PRINTS311,L3$; 
:60T0 1100 
IF Y$s="5" 
THEN WS=0:SDUND 150,1 
:IF AtS)=0 
THEN A(5)=B(5) :PRINTS315,L4$; 
ELSE A(5)=0: JJ=1:PRINTS315,L3$; 
:60T0 1100 
IF Y$=CHR$ (10) 
THEN WS=0 
FOR I=1 TO 5:SOUND150,1:A(I)=O 
: PRINTS295+1%4,1L3$; 
:NEXT I1:JJ=1 
IF WS<>O THEN GOTO 1220 
IF Y$=CHR$ (32) THEN WS=1 ELSE G0TO 1220 
IF Wu<=3 THEN 6OSUB 1800:60T0 730 
60T01220 
Y$=INKEY$ 


m 


# 
LE 
-üÜ 
9 


AND Q1(B)=O 
THEN PRINTS658+3% (B-1) , 3: PRINTUSING"##"3W(1) 3 
:SZ(B)=SZ (B)+W(1):GOSUB 1480:G0SUB 1440 
:60SUB1410:Q1 (B)=1 
:NEXT B,6 
AND 02(B)=0 
THEN PRINTS100+38% (B-1),;:PRINTUSING"##";W(2) #2; 
:5Z (B)=SZ (B) +W (2) #2: GOSUB1480: GOSUB1440 
: SOSUB1410:02 (B)=1 
:NEXTB,6 


1240 


1250 


1280 


1270 


1280 


1290 


1500 


1310 


15320 


15350 


1540 


1350 


15380 
1570 
1380 
15390 
1400 


1410 
1420 


1430 
1440 


1450 
1480 


1470 


1480 


106 


IF Y$="D" AND Q3(B)=0 
THEN PRINTS132+3% (B-1),""3=PRINTUSING"##"3W(3) #3; 
»5Z (B)=57 (B) +W (3) #3: GOSUB1480: GOSUB1440 
: 6G0SUB1410:03(B)=1 
:NEXTB,G 
IF Y$="Vv" AND Q4(B)=0 
THEN PRINTS164+3% (B-1) ,5:PRINTUSING"##":W(4) #4; 
»5Z(B)=SZ (B) +W(4) #4: GOSUB1480: GOSUB1440 
:GOSUB1410:04 (B)=1 
:NEXTB,G 
IF Y$="F" AND Q05(B)=0 
THEN PRINTS196+3% (B-1),5:PRINTUSING"##"3W(5) 25; 
:5Z (B)=SZ (B) +W (5) #85: G60OSUB1480: GOSUB1440 
: GOSUB1410:05(B)=1 
:NEXTB,6G 
IF Y$="S" AND 06(B)=0 
THEN PRINTS228+3% (B-1) , 3 :PRINTUSING"##"3W(6) #5; 
:5Z (B)=SZ (B) +W(6) #64: GOSUB1480: GOSUB1440 
:G60SUB1410:05(B)=1 
ıNEXTB,6G 
IF Y$="R" AND O1(B)=0 
THEN KK=-3: 60SUB 1700: PRINTSS2+3% (B-1),; 
: PRINTUSING"##"; ER; :G60OSUB 1820:01 (B)=1 
:NEXT B,6 
IF Y$="1" AND 02(B)=0 
THEN KK=4: GOSUB 1700: PRINTS84+3% (B-1) ,; 
:PRINTUSING"##";ER3:60SUB 1820:02(B)=1 
:NEXT B,6 
IF Y$="H" AND 07(B)=0 
THEN KK=1:G6O0SUB 1700: PRINTS244+3% (B-1),; 
:PRINTUSING"##" 3ER} :60SUB 1820:07 (B)=1 
:NEXT B,G 
IF Y$="U" AND 03(B)=0 
THEN GOSUB 1720: PRINTS116+3%# (B-1),; 
: PRINTUSING"##"; ER; :60SUB 1820:03(B)=1 
:NEXT B,G 
IF Y$="N" AND 065(B)=0 
THEN GOSUB 1540: PRINTS212+3% (B-1),3 
: PRINTUSING"##"; ER; :60OSUB 1820:06(B)=1 
:NEXT B,6 
IF Y$="K" AND 04(B)=0 
THEN GOSUB 1590: PRINTS148+3# (B-1),; 
: PRINTUSING" ##" 3ER; : G0OSUB1820:04 (B)=1 
:NEXTB,6 
IF Y$="G" AND 05(B)=0 
THEN GDOSUB 16850: PRINTS180+35% (B-1),; 
: PRINTUSING" ##" ;ER3 : S0OSUB1820: 05(B)=1 
:NEXT B,6 
IF WW>=3 THEN GOTO1210 


GOTO1100 
’KRERKEKKEKIEKL IKK III IE 
’  ZWISCHENERGEBNISSE 
mr 2272772377225 7770777770 
PRINTS493+5%2(B-1),; 
»: PRINTUSING" #44"; SZ (BJ) +SX (B) 5; :PL(B)=PL(B) +1 
H=T-1:IF H=0 THEN H=N 
IF PL(H)+PP (H) =13 

THEN FOR I=1 TO 2000:NEXT 1:60T0 1850 
RETURN 
IF O6&4(B)=1 AND KN(B) >=1 

THEN FOR K=1 TOD & 

:IF WiK)=5 THEN KM(B)=KM(B) +1 

ELSE NEXT K 
FOR K=1 TO 5:W(K)=O:NEXT K 
FOR I=1 TO S5:A(I)=O:NEXT I 
ı JJ=0: WW=0: ER=0: RETURN 
FOR K=1 TOD &:W(K)=O:NEXT K 
FOR L=1 TO S5:AtL)=0:NEXT L:RETURN 
PP(B)=PP (B)+1:PRINTS429+5% (B-1),; 
:PRINTUSING"###"5 SZ (B) ; :PRINTS493+5% (B-1),,;5 
: PRINTUSING" ###";5Z (B)+SX (B) 5; 


um diesen Wert erhöht, in 1480 ausge- 
druckt, und die Gesamtsumme um diesen 
Wert erhöht. Es wird gefragt, ob die letzte 
Runde erreicht ist (1420), der Schalter für 
diese Kombination (Q6(B)) wird auf 1 ge- 
setzt und das Spiel an den nächsten Spie- 
ler weitergegeben (NEXT B,G). Nach dem 
gleichen Schema laufen sämtliche Abfra- 
gen ab. Allerdings muß bei den letzten sie- 
ben Kombinationen noch die Gültigkeit 
der Entscheidung überprüft werden. Die- 
se Prüfung geschieht in kleinen Unterrou- 
tinen; das Ergebnis dieser Prüfung wird 
dem Hauptprogramm in ER übergeben. 
So wird verhindert, daß sich jemand einen 
»Kniffel« anrechnen läßt, obwohl er nur 
Gemüse geworfen hat. 


1350 Abfrage, ob der letzte Wurf pro 
Spieler erreicht ist 


1360 Rücksprung zur Tastenabfrage 


1400-1510 Die Zwischenergebnisse 
werden ausgerechnet und auf den Bild- 
schirm gebracht. Es wird überprüft, ob alle 
Runden durchspielt worden sind (1420). 
In 1440 wird, falls ein Spieler mehr als 
einen »Kniffel« würfelt, in derTabelle KM 
der Spielerplatz um 1 erhöht (Bonus- 
punkte!). 


1450-1470 Die Tabellen für die Werte 
und die Würfel werden gelöscht. 


1480 Die Zwischenergebnisse werden 
nochmals auf dem Bildschirm ausge- 
druckt. 


1490 Hat man in den oberen sechs Kom- 
Oinationen mehr als 62 Punkte, so be- 
kommit man einen Bonus von 35 Punkten. 
Dieser Bonus wird sofort ausgerechnet. 


1540-1820 Der Wert für die sieben Kom- 
Oinationen auf der rechten Seite wird er- 
mitteilt und ausgegeben. 


1540-1560 Aus der Tabelle W, in der 
Jleiche Zahlen gespeichert sind, wird er- 
rechnet, ob ein »Kniffel« geworfen wurde. 
Der »Kniffel«-Zähler KN wird auf 1 gesetzt, 
und ein dreifacher Tusch ertönt (1570). 


1570-1690 Wurde ein »Kniffel« als »Knif- 
iol« gewertet (KN(B)=1), dann kann jeder 
weitere »Krfiffel« auf jedem anderen belie- 
bigen Feld auf der rechten Seite als Joker 
eingesetzt werden (z.B. Große Straße = 
40 Punkte). Zusätzlich erhält der Spieler 
100 Bonuspunkte. 


1700-1780 Abfrage auf ein Full House 
durch Ermittlung, ob entweder eine Fün- 
ferkombination oder sowohl eine Zweier- 
(MN) als auch eine Dreierkombination 
(MM) vorliegt. Ist die Summe dieser beiden 
Schalter gleich 2, wird das Full House ge- 
wertet. 


1790 Der Wert eines Wurfes wird ermit- 
teilt. 


1800-1810 Der Schalter JJ (siehe Zeilen 
1110-1160) verursacht einen Sprung zu 
den Routinen, in denen der alte Wurf ge- 
löscht wird (1470) bzw. die gleichen Würfe 
gelöscht werden (1510). 


1820 Das Ergebnis für die rechte Bild- 
schirmhälfte wird ausgedruckt. 


1860-2050 Nach 13 Durchgängen wird 
das Spielfeld gelöscht und neben dem 
Spielernamen das Zwischenergebnis aus- 
gegeben (1880 und 1920). Die bisherige 


1490 


1500 
1510 
1520 
1525 
1530 


1540 
1550 
1560 
1520 


15350 


1570 


1580 
1590 


1610 
1620 


18350 


1840 
1850 
1660 
16870 
1680 


1690 
1700 


1710 
1720 
1730 
1740 
1750 
1780 
1770 
1780 
1790 


1800 
1810 


1820 


1850 
1840 
1850 
1880 
1870 


IF SZ(B)>=63 AND PP(B)=6 
THEN SZ (B)=SZ (B) +35: PRINTS429+5% (B-1),;5 
: PRINTUSING"###"5 SZ (B) 5 
:PRINTS493+5% (B-1),;5 
: PRINTUSING"###"55Z (B)+SX (B) 3; 
RETURN 
FOR K=1 TO &:W(K)=0:NEXT K:RETURN 
ERREKKKKKKKTKE IRRE RE ER R % 
’ KONTROLLE UND WERTUNG 
EIITTELTTETTETETETTTTTTTT 


FOR I=1 TO & 

IF W(B{I))=5 THEN ER=S50:KN (B)=1 
NEXT I 
"ERERELIEKKRRERKIERKIRI TER 

’ KONTROLLE UND WERTUNG 
’ERRERERTRIRIRIR IKK RER ER 


IF ER=50 
THEN FOR L=1 TO S3:PLAY"TSVS10O3LSCEGO4L2C" = NEXT L 
RETURN 
RT=W(I) EWIZ) WS) KW (A) 
TT=W(2) W(3) #W(A) 8W(5) 
UT=W(Z)EW(4) KWI5) KWI6) 
IF RT=1 OR RT=2 OR TT=1 OR TT=2 OR UT=1 OR UT=2 
THEN ER=30: ES=1 
IF O&(B)=1 AND KN{B) >=1 
THEN FOR I=1 TO & 
IF W(iB(I))=5 
THEN ER=30 
ELSE NEXT I 
RETURN 
HJ=W(1) KWI2) WITZ) KWLA) KW IS) 
=WIZ)I EWEZI) ETWA) EWIS) EWG). 
IF HJ=1 OR HK=1 THEN ER=40:ET=1 
IF 0O6&(B)=1 AND KN(B) >=1 
THEN FOR I=1 TO 5 
IF W({B(I))=5 
THEN ER=40 
ELSE NEXT I 
RETURN 
FOR I=-1 T0 & 
IF W(B(I)) >=KK 
THEN GOSUB 1790 
ELSE NEXT I 
RETURN 
FOR I=1 TO & 
IF WiB(I))=5 THEN ER=25 
IF W(iB(I))=3 THEN MM=1 
IF W(iB(I))=2 THEN MN=1 
IF MM+MN=2 THEN ER=25 
NEXT I 
MM=0 : MN=0: RETURN 
=B({1)+B(2)+B(S) +B(4) +B (5) :KK=0: RETURN 


IF JJ=0 THEN GOSUB 1470:RETURN 
IF JJ=1 THEN G0SUB1510: JJ=0: RETURN 


SX (B)=SX (B) +ER:PRINTS451+5% (B-1) ,3 
:PRINTUSING" ###"35X (B) ; »: GOSUB1440: GOSUB1400 
: RETURN 


KRRKKEREKKKERKIKKERKKKE NK 

’ RUNDENENDE 
PEREEKKRKEKKRKEIKKRERKE EEK 

CLS3 

PRINTS2, "ZWISCHENSTAND NACH RUNDE";sE3 


107 


1880 


1890 
1900 


1910 


1920 
1930 
1940 
1950 
1980 
1970 


1980 
1990 


2000 
2010 
2020 


2030 


2040 


2090 


2100 
2110 
2120 


2130 


2140 
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FOR I=1 TO E 
:PRINTS7S5+4% (1-1) ,5:PRINTUSING"#"3 1; 
:PRINT".R"; 
NEXT I 
FOR J=1 TON 
»PRINTS96+32% (J-1),5$(J) 5 
:NEXT J 
FOR J=1 TON 
66 (J,E)=1008KM (J) +57 (J) +SX (J) 
NEXT J 
FOR K=1T0 E 
:FOR L=1 TON 
»PRINTS105+4& (K-1) +328 (L-1) ,; 
»PRINTUSING"###"5G66(L,K)5z 
NEXT L 
ıNEXT K 
ZU$=STRING$ (32,45) 
PRINTS224, ZUs; 
FOR J=1 TO N=:GH(J)=G6H(J)+66(J,E):NEXT J 
PRINTS259, "GESAMTSUMME NACH RUNDE";E; 
FOR J=1 TO N: PRINTSS20+328 (J-1),S$(J) 3=2NEXT J 
FOR K=1 TON 
:PRINTSSS1+32% (K-1) „3 :PRINTUSING" #44" 35 GH (K) 5 
NEXT K 
FOR K=1 TO N:KP (K)=KP (K) +KM(K)8100:NEXT K 
FOR J=1 TON 
IF KP(J)>O 
THEN PRINTSS3S37+328 (J-1)," ( BONUS";KP(J)3")"; 
NEXT J 
FOR I=1 TO N:SZ(I)=0:SX{I)=O:NEXT I 
FOR I=1 TON 
:Q1(I)=0:02(1)=0:03(I)=0 
:84(1)=0:05(1I)=0:05 (I)=0O 
NEXT I 
FOR I=1 TON 
:01(1)=0:02(I)=0:03(1)=0 
»04(1)=0:05(1)=0:06 (1) =0:07 (1) =0 
:NEXT I 
FOR I=1 TON 
:KM(I)=0:KN(I)=0:PP(I)=0:PL(I)=O 
NEXT I 
JJ=0:WW=O 
"ERAEEIKERIKEKKERRRERR ERTL 
P SPIELENDE 
"ZRERERIKLEKERKIRRI KK KENT 
FOR K=1 TO #:W(K)=0O:NEXT K 


IF E=RU THEN 2080 ELSE 2090 
FOR H=1 TO 1000:NEXT H 
:PRINTS487, "NEUES SPIEL? <J,N>"; 
:SCREEN 0,1:60T0 2110 
FOR H=1 TO 1000:NEXT H 
:PRINTS485, "NAECHSTE RUNDE <ENTER>"; 
:SCREEN 0,1 
IF INKEY$<>CHR$(13) THEN GOTO 2100 ELSE 60TO 390 
Y$=INKEY$ 
IF Ys="J" 
THEN E=0: T=RND (N) 
:FOR I=1 TON 
:KP(I)=0:6H(I)=0 
:NEXT I 
: S0T0390 


IF Y$="N" 
THEN CLS:PRINTS252, "NUN,DANN EBEN NICHT'!"; 
:FOR I=1 TOD 2000:NEXT I 
:END 
G60T0 2110 


Gesamtsumme pro Spieler wird errechnet 
und zusammen mit den Namen den Spie- 
lern mitgeteilt (1940 bis 1970). Außerdem 
werden noch die Bonuspunkte für mehre- 
re »Kniffel«-Würfe addiert. Die gesamten 
Schalter und Zähler werden gelöscht; der 
Ring ist frei für die nächste Runde. 


2060 Die Tabellen für gleiche Würfe wer- 
den gelöscht. 


2070 Wenn die letzte Runde erreicht ist 
(E=RU), wird danach gefragt, ob man für 
die nächste Runde bereit ist (2090) bzw. 
ob man ein neues Spiel wünscht (2080). 


2120 Das einzige, was von dem alten 
Spiel übrig bleibt, sind die Namen der 
Spieler. Rundenzähler E wird auf O ge- 
setzt. Der neue Beginner wird ermittelt 
und zum Spielfeld zurückgesprungen. 


2130 Nach einem freundlichen Abschied 
ist das Spiel zu Ende. 
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Geschrieben in CBM-BASIC für den Commodore 64 


Wer je auf dem Commodore 64 programmiert hat, hat erfahren, wie lang 
der Weg ist zwischen einem Bild, das man sich in seiner Vorstellung 
macht, und dessen Umsetzung in Programmzeilen mit Hilfe des PRINT- 
befehls. Der Commodore-Zeichensatz ist sehr umfangreich. Allerdings ist 
das Ergebnis einer Zeichnung im Programm kaum noch zu erkennen, da 
die Steuerzeichen für die Bildschirmaufbereitung den gesamten opti- 
schen Eindruck des ursprünglichen Bildes in den Programmzeilen zer- 
stören. 

Weil ich mehr als einmal mit dem Problem zu kämpfen hatte, habe ich 
mich irgendwann einmal entschlossen, die Arbeit des Programmierens 
dem Computer zu überlassen. 

Das Problem wurde dadurch noch größer. Nur intensives Studium des 
RAM-Bereichs des BASIC-Interpreters und des Betriebssystems (Zero- 
Page) hat es mir zuletzt doch ermöglicht, lauffähige BASIC-Zeilen von 
BASIC aus zu erzeugen. 

Es stellten sich mir einige Schwierigkeiten in den Weg. Da ich die 
Absicht hatte, die BASIC-Zeilen auf dem Bildschirm auszugeben, mußte 
ich die fertige Zeichnung, für die ich diese BASIC-Zeilen erzeugen wollte, 
umlagern. Bei den Zeichen hätte dies zu keinem Problem geführt. Ich 
hätte einfach die Anfangsadresse des Bildschirms geändert und die neue 
dem Betriebssystem mitgeteilt. Anders sieht es bei dem Farbspeicher 
aus. Da dieser sich nicht bewegen läßt, mußte ich ihn komplett in den 
RAM-Bereich kopieren. Dies war nur möglich, wenn ich den Beginn des 
BASIC-Programms nach oben verlagerte. Oberhalb des BASIC-Pro- 
gramms wäre es nicht möglich gewesen, da die neuen BASIC-Zeilen 
diesen Bereich möglicherweise zerstört hätten. 

Ich hatte mir also die Aufgabe gestellt, einen Programmgenerator in 
BASIC zu programmieren. Wo sollte ich beginnen? Ich begann einfach 
damit, ein Programm zu entwerfen, das es mir erlaubte, mit Hilfe der 
Cursor- und der Funktionstasten auf dem Bildschirm zu zeichnen. Dazu 
mußte ich das automatische Weiterrücken des Cursors nach rechts 
unterdrücken. Vielmehr mußte ich die Richtung, in die sich der Cursor 
nach dem Drücken bewegte, durch die Cursor-Tasten bestimmen kön- 


111 


nen. Einige Tasten (DEL, INST, RETURN) mußte ich dazu außer Funktion 
setzen. Bei der Gelegenheit habe ich gleichzeitig noch die Funktionsta- 
sten mit einigen Hilfsfunktionen belegt. 

Eine weitere Option, die das Programm bieten sollte, war das Speichern 
und Laden eines fertigen Bildes als Maschinenprogramm auf Diskette. 
Das ist mir nicht gelungen. Es ist eine USER-Datei daraus geworden. Der 
Unterschied zwischen beiden liegt nur in der Schnelligkeit der Übertra- 
gung. 

Alles in allem hat mir die Arbeit an diesem Programm (und später mit 
diesem Programm) sehr viel Spaß bereitet. Ich hoffe, dieses Vergnügen 
weitergeben zu können. 

Ein Tip noch, der für alle Programme gilt, in denen es POKE-Befehle 
gibt: 

Speichern Sie das Programm nach dem Abtippen erst auf Diskette! Sie 
vermeiden so, daß Sie die gesamte Arbeit nach einem Tippfehler nochmal 
machen müssen. Ein versehentlicher POKE auf eine Adresse zwischen 0 
und 1024 kann zum Absturz des Computers führen und Sie dazu zwin- 
gen, ihn zur weiteren Benutzung ausschalten zu müssen. Und jetzt geht's 
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1 Diese drei POKEs müssen eingegeben 
werden, bevor Sie das Programm laufen 
lassen. Wenn Sie es vergessen, über- 
schreiben Sie mit Ihrem Farbspeicher Ihr 
BASIC-Programm. Die Programmzeilen, 
die danach bei einem LIST herauskom- 
men, können Sie sich ja mal anschauen, 
wenn Sie Ihr Programm auf Diskette ge- 
speichert haben. Sie bewirken im einzel- 
nen folgendes: 

POKE 44,16: POKE 43,1 setzt den An- 
fang des BASIC-Programmspeichers auf 
die Speicherstelle 4096. Diese Speicher- 
stelle muß auf O gesetzt werden, da der 
Anfang des BASIC-Programmspeichers 
mit einer O beginnen muß. Jeder Befehl 
würde sonst vom Computer mit SYNTAX 
ERROR auittiert. Wenn Sie diese POKEs 
eingegeben haben, tippen Sie bitte NEW 
ein. Jetzt ist Ihr Computer bereit, ein BA- 
SIC-Programm an eine neue Anfangs- 
adresse zu laden. POKE 4051,0 wird im 
Programm als Schalter benutzt. Ich konn- 
te keine Variable nehmen, da diese bei 
einem erneuten Start zerstört worden 
wäre. 


10-110 Der Stolz des Programmierers 


120 In A$ wird der gesamte Zeichenvor- 
rat des Commodore aufbewahrt, in B$ die 
Farbsteuerzeichen. 


130 Die Tabellen A$ und F$ werden ge- 
füllt. 


140 B$ enthält für die Steuerung die Cur- 
sor-Steuerzeichen und die Funktionsta- 
sten, F$ nochmal sämtliche Farbwerte. 


150 Wenn 4051 ungleich O ist, so wird 
direkt in den Programmteil gesprungen, in 
dem die BASIC-Zeilen erzeugt werden. In 
diesem Programmteil wird 4051 auf einen 
anderen Wert gesetzt. 


160 4094 und 4095 enthalten die End- 
adresse des Ursprungsprogrammes. 


170 1500ff enthalten die Einleitung und 
eine kurze Erklärung der Tastenbelegung. 


180 Wenn 650 auf 255 steht, erhalten 
sämtliche Tasten eine REPEAT-Funktion. 
649 bestimmt die Länge des Tastaturpuf- 
fers, d.h. wenn aus Versehen 2 Tasten 
kurz nacheinander gedrückt werden, wird 
nur das Zeichen für die erste auf dem Bild- 
schirm erscheinen. 


i REM VOR START UND EINTIPPEN EINGEBEN: POKE4051,0 


90 


:POKE44, 15: POKE4095,0 


REMIEREZERIKRREREKKK ERIK III ERIK KR 


REM% 

REM* DRUCKZEILENGENERATOR 
REM& 

REM# AUTOR: ANDREAS WERMINGHOFF 
REM% 


REMREEREELKELEEKLIKKEIEKKREK EIKE KIRE K 


100 REM STEUERTEIL 
110 REMIEKKEKKKLEREKIERKKERKERIKEKI REKEN K 


120 DIM A$(127),F$(15) 


150 GOSUB 1720 


140 B$=" (CU=AB, CU=AUF ,CU=LI,CU=RE,F1,F3,F5,F7,F2,F4,F6, 


F8}":F$="{BLK,WHT,RED,CYN, PUR, GRN, BLU, VEL,C=1,C=2,C=3, 
C=4,C=5,C=6,C0=7,C0=8}" 


150 IF PEEK(4051)<>O THEN GOTOD 920 


150 POKE 4094, PEEK (465) :sPOKE 4095,PEEK (45) -2 


170 GOSUB 1500 


180 POKE 6850, 255:POKE 649,1 
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190 
200 
210 


220 
250 
240 
250 
260 


270 
280 


PRINT" {CLEAR}"; 
POKE 205,01:POKE 198,0:POKE 204,0 
GET A$:IF A$="" THEN GOTO 210 


P=PEEK (197) 

IF P>7 THEN 60T0 310 

IF (P=2 OR P=7) AND F7 THEN G60T0 310 
IF P=1 THEN GOTO 210 

IF P=0 THEN GOTO 210 


FOR I=1 TO 15:0N ABS(A$=MID$(B$,1I,1)) GOTO 290 
NEXT 1:60T0 310 


290 ON I GOSUB 1260, 1320, 1380,1440,410,470,530,590,650, 
710,830, 920 


300 


510 
520 


330 
540 
350 
360 


c 


370 
380 
590 
400 
410 
420 
430 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
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G0TO 200 


A=PEEK (214) :B=PEEK (211) 
IF A=24 AND B=39 THEN PRINT" {CU=LI}"3:60T0 200 


POKE 205,2 

IF PEEK(207)<>0 THEN GOTO 340 

POKE 204,1 

IF A=24 AND (A$="iCU=AB}" OR CUs="{CU=LI, 
U=AB}")THEN GOTO 200 

PRINT A$;CU$; :60T0 200 
REMIFKEREKRRKERIKKKI RER KUK KLEE 
REM Fi HINTERGRUND 
REMIEKEIREREREREKERKIR ERIK KEN 
Fi=Fi+1:IF Fi=16 THEN Fi=0 

POKE 53281,F1 

RETURN 


a,r227277727727720777777877777 77° 
REM F3 ZEICHENFARBE 
REMIEKEEEKKKKKKKKKREKKTII EIKE NEN 
F3S=F3+1: IF F3=16& THEN F3=0 

POKE 646, F3 

RETURN 

REMIKKRIKKIKEKKKKKRRRKKIKKERE KEN 

REM FS REVERSESCHALTER 
REMIKKRIKKEKEREREKKREKKEKERKE KEN 

FS$=" {RVSON}":FS=FS+1: IF FS5=2 THEN FS5=0: FS$=" {RVSOFF}" 
POKE 199,F5 

RETURN 


200 205 enthält einen Zähler, der das 
Blinken des Cursors steuert. 198 enthält 
die Zahl der Tasten, die gedrückt wurden 
und noch nicht verarbeitet sind. 204 ist 
eine Speicherstelle, die das Blinken des 
Cursors an- oder ausschaltet. 


220-260 197 enthält einen Zahlenwert 
für die zuletzt gedrückte Taste. Wenn die- 
ser Wert größer als 7 ist, so handelt es sich 
um ein normales Zeichen. 2 und 7 sind die 
Werte für RVS ON und RVS OFF. 1 und O 
(INST und DEL) werden unterdrückt. 


270-280 Diese Funktion bewirkt Zweier- 
lei: 1. wird überprüft, ob die Taste, die soe- 
ben gedrückt wurde, in B$ enthalten ist, 
und 2. wird, wenn das der Fall ist, nach 
290 verzweigt. Das ist nur möglich, weil 
eine wahre Bedingung im Computer die 
Zahl -1 erzeugt. Diese Zahl (ohne Vorzei- 
chen) verursacht einen Sprung in die 
Kommandozeile 290. 


290 Kommandozeile. Abhängig von der 
Stelle, wo eine Übereinstimmung des ein- 
gegebenen Zeichens mit B$ festgestellt 
wurde, wird in die Hilfsprogramme ver- 
zweigt. 


310-320 und 360 214 enthält die Cur- 
sor-Zeile, 215 die Cursor-Spalte. Ist man 
beim Zeichnen am unteren Rand des Bild- 
schirms angelangt, wird das Scrollen ver- 
hindert. 


330-350 Der Cursor wird ausgeschaltet. 


370 Das eingegebene Zeichen wird zu- 
sammen mit der Printrichtung (CU$) aus- 
gegeben. 


410-430 Jedesmal, wenn die Taste F1 
gedrückt wird, wird an die Speicherstelle 
für den Hintergrund ein um 1 erhöhter 
Wert gePOKEt. Höher als 15 kann der 
Wert nicht steigen. 


470-490 Nach dem gleichen System 
wird an die Stelle, die die Schriftfarbe (646) 
enthält, ein Wert zwischen 0 und 15 ge- 
POKEt. 


530-550 Die Speicherstelle 199 enthält 
den Wert, der bestimmt, ob ein Zeichen 
revers oder normal gedruckt wird. Bei 0 
gilt normal, bei 1 revers. 


590-610 Mit der Taste F7 wird bestimmt, 
ob der Cursor seine normale Funktion er- 
hält oder als Steuertaste zum Zeichnen 
gebraucht wird. 


650-670 F2 steuert nach dem bekann- 
ten Prinzip die Randfarbe des Bildschirms. 


710-790 An dieser Stelle kann eine 
USER-Datei eingelesen werden. Wenn 
am Beginn des Programms kein Titel ver- 
geben wurde, wird ins Hauptprogramm 
zurückverzweigt. Sonst wird erst die An- 
fangsadresse eingelesen (HB$ und LB$) 
und danach an diese Stelle die eingelese- 
nen Werte gePOKEt. Dieser Vorgang wird 
zweimal durchgeführt: Einmal für die Zei- 
chen, einmal für die Farben (N$ = 
DU,R'’ "ii 


830-880 Umgekehrt kann nach Eingabe 
eines Namens am Beginn des Programms 
der Bildschirm auf Diskette ausgegeben 
werden. Die Anfangsadresse der ersten 
Ausgabe ist identisch mit der Anfangs- 
adresse des Bildschirms, die der zweiten 
mit dem Farbspeicher. 


920-1220 Hier beginnt der wirkliche 
BASIC-Generator. 


920 Der Cursor wird ausgeschaltet. 


930-940 Die Adressen für Rand- und 
Hintergrundfarben werden abgefragt, auf 
einen Wert zwischen O und 15 reduziert 
und in B1 bzw. B2 gespeichert. 


950 Der Cursor wird wieder eingeschal- 
tet. Die letzte erzeugte BASIC-Zeilennum- 
mer wird aus 4050 und 4051 ausgelesen. 


951 Wenn der folgende Teil schon mal 
durchlaufen wurde (B( )ZN), wird der 
Bildschirm gelöscht und nach Zeile 1040 
verzweigt. 


960 Der Beginn des Bildschirmspeichers 
(1024) wird in Speicherstelle 4052 und 
4053 aufbewahrt. Die Speicherstelle 4092 
erhält den Wert der Randfarbe. 


550 REMFZKKEKEKTERTIKKEIIKKK KT KERE E N 
570 REM F7 CURSOR LOESCHEN 

S8BO REMEIKKKKEKKKKRRRKUTKKEKEKE RE KR 
590 F7=NOT F7:CU$="" 

610 RETURN 


620 REMREKKRKKKKEKKIKKEKEKKKERKE KEN R 
630 REM F2 RANDFARBE 

6540 REMIKKKERKREKKKRKKKLEKKIKKKEEN KK 
650 F2=F2+1: IF F2=16 THEN F2=0 

660 POKE 53280,F2 


670 RETURN 
880 REMFFFFEKKEKKKTKKK KIEFER K 
690 REM EINLESEN VON DISC 


TOO REMEKKKKKKKKKKKKKKREKKT IKK KU KK ER 

710 N$="1,U,R":IF Di=1 OR IN=0 THEN RETURN 

720 OPEN 1,8,3, IN$+N$: GET#1,LB$: GET#1,HB$ 

730 IF HB$=""THEN HB$=CHR$ (0) 

740 IF LB$=""THEN LB$=CHRS$ (0) 

750 AA=256*ASC (HB$) +ASC (LB$) 

760 FOR I=AA TO AA+1000:GET#1,1$: IF I$=""THEN I$=CHR$ (0) 
770 POKE I,ASC(I$):NEXT I:CLOSE 1 

780 IF Di=1 THEN RETURN 

790 N$="2,U,R":D1=1:60T0 720 


800 REMFKKEKKKREKKRIKKKKTKKKKKKI EEE K 

810 REM AUSGABE AUF DISC 

820 REMIERKKKKEERKRRKKKREKKEKKKEKKE NEN 

830 N$="1,U,W"zAA=1024: IF Di=1 OR OU=0 THEN RETURN 

840 HB=INT (AA/256) :LB=AA-INT (AA/25%256) :OPEN 1,8, 3,0U$+N$ 

850 PRINT#1,CHR$(LB) ;CHR$ (HB) ; 

860 FOR I=AA TO AA+1000:PRINT#1,CHR$ (PEEK(T)) 5: NEXT 
:CLOSE 1 

870 IF D2=1 THEN RETURN 

880 AA=55296:D2=1:N$="2,U,W":G0T0 840 

BIO REMIEKKEKKEKKKEKEKKEEKKEREKEKKR NK 

900 REM BASICZEILEN 

P1O REMKERKKKRKKKKEKKKKKTERERKEKKC KENNE K 

920 IF PEEK(207) THEN 60T0 920 


950 Bi1=PEEK (53281) AND 15 
940 B2=PEEK (55280) AND 15 


950 POKE 204, 1:B=PEEK (4050) #256+PEEK (4051) 


951 IF B<>ZN THEN PRINT" {C=7,CLEAR,CU=AB.23"5:60T0 1040 


960 F=Bi1:POKE 4052,8:POKE 4055,0:POKE 4092,B1 
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970 FOR I=0 TOD 999 

9780 POKE 2048+1,PEEK(1024+1) 

770 POKE 3048+I,PEEK(552965+I1) AND 15 
1000 NEXT I 


1010 SYS 58548:REM BILDSCHIRM RESET 


1020 PRINT" {CLEAR, RVSOFF , CU=AB. 23"; RIGHT$ (STR$ (B), 
LEN (STR$ (BJ) ) -1) 5," POKESS3281,";Bi; 

1030 PRINT": POKESS280, "3B2; "{LEERT. 143" 3 CHR$ (13) 5 :B=B+10 
:6=1 


1040 A=PEEK (4052) #256+PEEK (4053) :A$=RIGHT$ (STR$ (B),, 
LEN (STR$ (B) )-1)+" PRINT" 


1050 A$=A$+CHR$ (34) ı BI=PEEK (4092) 


1080 IF LEN(A$)<75 THEN GOTO 1130 


1070 A$=A$+CHR$ (34) +" 3 "+CHR$ (13) 


1080 PRINT A$; :B=B+10: A$=RIGHT$ (STR$ (B), 
LEN (STR$(B))-1)+" PRINT"+CHRS$ (34) 


1090 G=6+1:IF 6<9 THEN G0OTO 1130 


1100 POKE 4052, INT (A/256) :»POKE 40553, A-INT (A/256) #256 
1110 POKE 4050, INT (B/256) :POKE 4051 ,B-INT (B/256) #256 
:POKE 198, 0:PRINT" {BLU>RUN {HOME} "; 


1120 FOR I=0 TO G:POKE &31+I1,13:NEXT I:POKE 649,6 
:POKE 198,6+1:END 
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970-1000 Der gesamte Bildschirm wird 
um 1 Kilobyte nach oben kopiert, direkt 
anschließend werden die entsprechenden 
Farbwerte gelagert. 


1010 Durch den SYS-Befehl wird der ge- 
samte Bildschirm gelöscht und die Farben 
hergestellt, die sich beim Einschalten des 
Commodore zeigen. 


1020-1030 Mit der ersten eingegebenen 
Zeilennummer wird der Befehl ausge- 
druckt, der Hintergrund und Rand norma- 
lerweise in BASIC erzeugt. Die Zeilennum- 
mer wird um 10 erhöht, und der Zähler G 
gesetzt (G zählt die auf dem Bildschirm 
erzeugten BASIC-Zeilen). 


1040 Für den nächsten Durchlauf wird 
die letzte verarbeitete Adresse aus 4052 
und 4053 ausgelesen. A$ beginnt neu mit 
der nächsten Zeilennummer und PRINT. 


1050 A$ wird um ein Gänsefüßchen ver- 
längert. 4092 wird nach B1 gelesen. 


1060 Wenn die bisher erzeugte BASIC- 
Zeile kürzer als 75 Zeichen ist (maximale 
Länge einer BASIC-Befehlszeile ist 80 Zei- 
chen), wird nach 1130 verzweigt. 


1070 A$ wird um das zweite Gänsefüß- 
chen (Stringende) und ein Semikolon ver- 
längert. Ein CR schließt A$ ab. 


1080 Die BASIC-Zeile wird ausgedruckt, 
die nächste Zeilennummer erzeugt und 
zusammen mit PRINT und Gänsefüßchen 
ausgedruckt. 


1090 Der Zeilenzähler wird um 1 erhöht; 
solange er kleiner als 9 ist, wird nach 1130 
verzweigt. 


1100 In 4052 wird die letzte, bisher verar- 
beitete Bildschirmadresse aufbewahrt, in 
4050 und 4051 die letzte Farbspeicher- 
adresse. Der Tastaturpuffer wird leerge- 
räumt (198,0) und auf dem Bildschirm un- 
sichtbar das Wort RUN ausgedruckt. Da- 
nach wird der Cursor in die linke obere 
Bildschirmecke geschickt. 


1120 Der Tastaturpuffer wird mit soviel 
RETURNs gefüllt, wie BASIC-Zeilen auf 
dem Bildschirm stehen. Der Tastaturpuf- 
fer wird auf genau diese Länge gebracht 
und dem BASIC-Interpreter mitgeteilt, 
daß der Tastaturpuffer voll ist (198,G + 1). 


Danach ist das Programm zuende. Auf 
dem Bildschirm geschieht jetzt folgendes: 
Der Cursor befindet sich in der linken obe- 
ren Ecke, stellt fest, daß eine BASIC-Zeile 
dort steht, und wird durch das RETURN 
aus dem Tastaturpuffer dazu gezwungen, 
diese Zeile in den Programmspeicher zu 
übernehmen. Dieser Vorgang wiederholt 
sich G-mal. Anschließend findet er den 
Befehl RUN und das Programm läuft wie- 
der bei Zeile 1 los. 


1130 Die aktuelle Speicherstelle wird auf 
ihren Wert untersucht. Ein Wert größer als 
127 zeigt, daß das Zeichen revers darge- 
stellt ist. Wenn das letzte Zeichen auch 
schon revers war (D=1), ist keine weitere 
Aktion nötig. Sonst muß das Steuerzei- 
chen für RVSON ausgedruckt werden. 


1140 Der umgekehrte Vorgang wie in 
1130 


1150 Damit ein reverses Zeichen in der 
PRINT-Zeile nicht als Steuerzeichen miß- 
verstanden wird, muß Bit 7 des Zeichens 
auf O gesetzt werden (C AND NOT 128). 


1160-1170 Der Farbwert (E) wird ausge- 
esen und mit der bisherigen Farbe (F) und 
der Hintergrundfarbe verglichen. Ist er von 
beiden verschieden, so wird das entspre- 
chende Steuerzeichen aus der Tabelle F$ 
ermittelt und an A$ angefügt. Der neue 
Farbwert wird zum alten (F=E). 


1180-1190 Erst danach wird das gefun- 
dene Zeichen aus der Tabelle (A$(C)) an 
A$ angefügt. Der Zähler für die Adressen 
wird hochgesetzt und mit dem Endwert 


verglichen. 


1200-1210 Diese Zeilen sind identisch 
mit den Zeilen 1080 und 1120; diesmal 
mussen aber keine Adressen aufgehoben 
werden. 


1220 Dem Basic-Interpreter wird der Be- 
ann der neuen Zeilen mitgeteilt, und Sie 
können das neue Programm auf Kassette 
oder Diskette als normales BASIC-Pro- 
gramm aufnehmen. 


1150 C=PEEK(A)=IF C>127 AND D=O THEN D=1:A$=A$+" {RVSON}" 


1140 IF D=1 AND C<128 THEN D=0: A$=A$+" {RVSOFF}" 


1150 C=C AND NOT 128 


1160 E=PEEK (A+1000) :E=E AND 15 
1170 IF E<>F AND E<>Bi1 THEN A$s=A$+F$(E):F=E 


1180 A$=A$+A$(C) 
1190 A=A+1: IF A<S3047 THEN 1060 


1200 PRINT A$; CHR$ (34) ; "; {HOME} "3 :POKE 4051,0 
1210 FOR I=0 TO G6+1:POKE &31+I,13:NEXT I:POKE 649,6 
:POKE 198,6+2 


1220 POKE 44,PEEK (4094) :POKE 43,PEEK (4095) :END 
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2569 POKES32S1, 6 :POKES3288, 13 
2u16 FRINT" 

220 PRINT" 

20380 PRINT" 


2645 FRINT" am are 


2058 PRINT" Adekiaakk 


au are ee; 


2868 PRINT" aaım au ar Her te 2 


2878 PRINT" Am AH + DE 4 u ten 
a8 PRINT" EEE ee te 


zu90 PRINT'E arm 4 DE O mE ee te 
2108 PRINT'IHF+ a are 


2116 PRINT" FE wre te 


2126 PRINT" am 
2138 PRINT" ve 

2148 PRINT" 

2158 PRINT" 

2ie8 PRINT! 

2178 PRINT" 

2188 PRINT" 


1250 REMEKRKEKKEKEKEKKKEREIIIKERERII KENN 

1240 REM CURSOR DOWN 

1250 REMZFEEKEERERKEIKREKKRERKIK EIKE RR 

1260 IF F7 THEN A$="{CU=AB}":CU$="":G60TO 1280 
1270 CU$="{CU=LI,CU=AB} "3 A$="" 

1280 RETURN 

1290 REMIEKKKRKLEEREEKREKKERKKKKKKEREN TR 

1500 REM CURSOR UP 

1510 REMESKKKKKEERKEERERICKRIEKEKEK ER ER K 

1520 IF F7 THEN A$="{CU=AUF}":CU$="":G60T0 1340 
1550 CU$="{CU=LI,CU=SAUF}" 3 A$S="" 

1540 RETURN 

1350 REMIELEKKRKERKKKKKIITKIKKRI KK K 

1550 REM CURSOR LEFT 

1570 REMFEKEKERLEKERKEKTRRIREK KT KERE NK 

1580 IF F7 THEN A$="{CU=LI}":CU$="":G60T0 1400 
1590 CU$="{CU=L1.23":As="" 

1400 RETURN 

1410 REMIEKKERKEKKKEKERRKKEKEKKUKEKK RR 

1420 REM CURSOR RIGHT 

1450 REMIKEKEKERKKREKKERIKREKK ERIK ER K 

1440 IF F7 THEN A$=" {CU=RE}":CU$="":60T0 1460 
1450 CU$="" 

14580 RETURN 

1470 REMIKEKKKEERKIEKKKIKKRE IKK KENN 

1480 REM ERLAEUTERUNGEN 

1490 REMIKKEKKEKERKKRRKEKKKER RE KK K I X 

1500 PRINT" {CLEAR, S=U, S=4.38,5=1}"3; 

1501 PRINT" (S=-} BILDGENERATOR {LEERT. 24,5=-}"3 
1502 PRINT"{S=-} {LEERT.37,5=-}"; 

1510 PRINT" 15=-} {LEERT,.S>F1=HINTERGRUNDFARBE {LEERT.13, 


S=—}' 3 
1520 PRINT" (S5=-} {LEERT.S>F2=RANDFARBEUNDFARBE {LEERT.12, 
S=-}"; 


15350 PRINT" (S=-} {LEERT.S>IFS=ZEICHENFARBE {LEERT.17,8=-}"; 

1540 PRINT" (S=-} {LEERT.S}F4=LADEN VON DISKETTE{LEERT.11, 
S=-}"; 

1550 PRINT" {S=-} {LEERT.SIFS=REVERSE AN/AUS{LEERT.15S, 
5=-}"; 

1560 PRINT"{S=-} {LEERT.S}F&ö=SPEICHERN AUF DISKETTE {LEERT 
- 7; S=-) ". 

1570 PRINT" (S=-} {LEERT. 5>F7=CURSOR-SCHALTER{LEERT.14, 
S=-)"; 

1580 PRINT"{S=-} {LEERT.S}FS=ERZEUGEN VON BASICZEILEN{LEE 
RT. 5, S5=-)} ” 

1581 PRINT" (S5=J,5=2.38,5=K}"; 

1590 PRINT" BITTE GEBEN SIE JETZT DEN DATEI-" 

1600 PRINT" NAMEN FUER DAS EINLESEN EINES" 


16810 PRINT" BILDES EIN <{RVSON}RETURN{RVSOFF} >=NICHTS EIN 
LESEN" 
1820 IN=1:DU=1 
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a"; 
A 
at"; 


1260-1460 CU$ enthält beim Malen auf 
dem Bildschirm, solange der Cursor als 
Steuerzeichen benutzt wird, immer einen 
Schritt nach links. Dadurch wird die 
Druckposition auf einem Platz festgehal- 
ten. Zusätzlich wird das entsprechende 
Cursor-Steuerzeichen hinzugefügt. Wird 
also z.B. erst »Cursor links« gedrückt und 
danach »M«, so wird erst »M« ausgegeben 
und danach zweimal »Cursor links«. F7 
schaltet diese Funktion ein — und auch 
wieder aus, indem es einfach CU$ löscht. 


1630 INPUT IN$:IF IN$=""THEN IN=O 
1640 PRINT" WELCHER DATEINAME FUER DIE AUSGABE" 
1650 INPUT OU$: IF OU$=""THEN OU=O 
1660 PRINT"ERSTE ZEILENNUMMER{LEERT.2} (MINDESTENS 2000) " 
1670 INPUT ZN:IF ZN<2000 THEN ZN=2000 
sig 1690 FOR I=1 TO 1000:NEXT 
1700 Die eingegebene, erste Zeilennum- 1700 POKE 4050, INT(ZN/256) :POKE 4051, ZN-INT (ZN/256) #256 
mer wird in 4050 und 4051 gespeichert. 1710 RETURN 


ee LE 


BILDGENERATOR 


| 

| 

| Fi=HINTERGEUNDFARBE 

| F2=RAÄNDFARBELINDFARBE 
| F3=ZEICHENFARBE 
| 

| 

| 

| 

| 


F4=LADEN YON DISKETTE 
FS=REVERSE AN/AUS 
F&=SPEICHERN AUF DISKETTE 
F7=CURSOR-SCHÄLTER 
FS=ERZEUGEN VON BASICZEILEN 
erregte 
BITTE GEBEN SIE JETZT DEN DATEI- 
NAMEN FUER DAS EINLESEN EINES 
BILDES EIN <ASWWAMD=NICHTS EINLESEN ? 
FYRAMIDE 
WELCHER DATEINAME FUER DIE AUSGABE 
? RAMSES 





1720 REMIKKKKEKREKEKKEHI TRIKE KK KK X 
1730 REM ZEICHEN UND FARBTABELLE 
1740 REMZERKKEKKEKKRIIKKI I KRITIK IR IK I KK 
1750 FOR I=0 TO 127:READ A$(I):NEXT I 
1780 FOR I=0 TOD 15:READ F$(TI):NEXT I 
1770 RETURN 


1780-1910 Der gesamte Zeichenvorrat 1780 DATA®,A,B,C,D,E,F,6,H,1,J,K,L,M,N 

des Commodore außer den Gänsefüß- er u a 
a . . . | BEL ’ „. m. s ’ s ’ s ’ ’ 

chen ist in diesen DATA-Zeilen enthalten. 1810 DATA-,.,/,0,1,2,3,4,5,6,7,8,9, "2" 


1820 DATA"3",<,=,>,? 
1830 DATA" {S=%}","{S=A}","(S=B}","{S=C}","(5=DI","{S=E}", 


1840 DATA" (G-BI","CBCHD","eB-ID "eB=DD" "Ka" nBeLdt, 
1850 DATAM CSND" „"CB=OD"," BEP)", "(8-0)", CERI" EB", 
1860 DATA" (G=U)" " CB=VI" "BED" nCBeKdneBend",negez3", 
1870 DATAM CHI" sn eBed "sn cOmndn nccende, “"N{C=K}", 

1680 DATAT C=T3", "0-83", "0-83", "c0=r3", "0m," cc=V", 


1890 DATA" {C=N}","{C=Q}","(C=D}","{C=Z3","{C=5}","{C=P}", 
„ <C=A} „ . „ <C=E} " 
1900 DATA" {C=R}" ,"{C=W3","{C=H3","{C=J}","C=L}","iC=Y}", 
„ {C=U} „ 
1910 DATA" {C=07","{5=93","{C=F}","CC=C}" , "{C=X3","{C=V)", 
„ <C=B} " 
1920 DATA" {BLK}", "{WHT3",„"{RED}","{CYN}","{PUR?","{GRN}", 
"<BLU}" 
x 1930 DATA" {YEL}Y", "(C=1}", "(0=27", "C=3}", "{C=43", "(0=5}" 
1920-1940 Die verfügbaren Farben wer- “(Caß}" F " s 4 


den in F$ gespeichert. 1940 DATA" {C=77","{C0=8}" 
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ee ee na ng u ui ZU ’L-L. MIN um 


en > In deren a LIMMN VUOLLFMMN VLOLIAR VOLILAF 
ze EEE u ne u na NT DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DI 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL/ 
LAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR I 
t DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR BOLLAR DOLLAR DOLLAR DOLLAR DOLL 
LLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR 
IR DOLLAR DOLLAR DOLLAR DOLLAR DUÜLLAR DOLLAR DOLLAR DOLLAR DOLLAR ui nn 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAF 
AR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DI 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL? 
LAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR I 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL 
ILLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR 
IR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR ‚DOLLAR DOLLAR Swen u 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAF 
AR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DI 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL? 
LAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR I 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL 
ILLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR 
IR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOL 
OLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAF 
AR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR BE 
DULLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR Inu IE“ 
LAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR I 
DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLL 
LILAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR 
AR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOLLAR DOL 
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Geschrieben in Microsoft-BASIC für den Dragon 32 


Wie alle Selbständigen sind wir, da wir ab und zu auch Bargeld brauchen, 
zur Führung eines Kassenbuchs verpflichtet. Um uns diese Arbeit zu 
erleichtern und uns vor allen Dingen vor Rechenfehlern zu schützen, habe 
ich »Vrilcalc« geschrieben. Dieses Programm ist in der Lage, Belege nach 
Datum zu sortieren, die zu den Belegen zugehörigen Zwischensummen 
zu errechnen, und die eingegebenen Daten statistisch auszuwerten. 
Bevor der Benutzer mit dem Buchen beginnt, belegt er die Buchstabenta- 
sten mit dem Buchungstext. Diese Belegung wird zusammen mit den 
Buchungssätzen auf Kassette gespeichert. Es empfiehlt sich, vor dem 
ersten Gebrauch des Programms sich genau zu überlegen, mit welchem 
Text die Taste belegt werden soll. Der Text darf maximal sieben Zeichen 
lang sein. 

Bei der Programmierung stellten sich drei große Probleme. Wer einmal 
längere Zeit am Dragon 32 gearbeitet hat, hat sich wahrscheinlich- genau 
wie ich — Blasen auf den Augen geholt. Der schwarze Text auf grünem 
Untergrund ist nicht sehr erholsam. Deshalb habe ich mich bemüht, den 
gesamten Text außer der Eingabezeile grün auf schwarz zu schreiben. 
Dabei mußte ich leider mit Routinen in Maschinensprache arbeiten, da vor 
allem Sonderzeichen und Zahlen — im Gegensatz zu Buchstaben — über 
die Tastatur nicht revers dargestellt werden können. Ich wußte allerdings, 
daß die reversen Zeichen als Bildschirmcodes vorhanden sind. Ein rever- 
ses Sonderzeichen erhält man, indem man den ASCII-Code des Zeichens 
auf den Bildschirm POKEt. Bei den Buchstaben muß man, wenn man 
nicht das gesamte Wort neu drucken will, vom normalen Bildschirmcode 
64 subtrahieren. Um das Wort für die Eingabezeile wieder in normaler 
Schrift zu erhalten, addiert man wiederum zu jedem Wert der Bildschirm- 
zeile 64. 

Das zweite Problem war, den Dragon dazu zu bringen, den Bildschirm 
abwärts zu scrollen. Von BASIC aus könnte man das in einer FOR- 

..„. NEXT Schleife programmieren, indem man den Wert jeder Bildschirm- 
adresse 32 Adressen weiter POKEt. Da diese Art von Programmierung 
entsetzlich langsam wäre, habe ich auch dieses Problem in Maschinen- 
sprache gelöst. Bei der Gelegenheit habe ich mit der gleichen Technik den 
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Bildschirm auch aufwärts scrollen lassen. Die oben oder unten neu 
erscheinende Zeile wird normal gedruckt und danach grün auf schwarz 
gesetzt. 

Die dritte Aufgabe, nämlich die Eingabe auf zulässige Werte zu 
beschränken und trotzdem die Möglichkeit zu behalten, die Menuezeile zu 
bedienen, habe ich nur lösen können, nachdem Christoph Silex den 
Grundstock zu der Eingaberoutine ab Zeile 12000 legte. Dieser Eingabe- 
routine simuliert einen Cursor, überprüft die Eingabe auf Zulässigkeit und 
unterstützt die Bedienung der Pfeiltasten nach rechts, links, oben und 
unten. Mit den Tasten nach rechts und links wird die Menuezeile bedient, 
mit denen nach oben und unten die Eingabezeile bewegt. 

Das Programm hat sich als nützlich erwiesen - vor allem, wenn manes 
mal wieder geschafft hat, zwei Wochen lang keine Belege ins Kassenbuch 
einzutragen. Da wir mit einem Steuerberater zusammenarbeiten, hatte er 
einen Wunsch frei. Erhat mich gebeten, bei der Tastenbelegung gleichzei- 
tig die Kontonummern einzugeben, die er bei der Verrechnung der Belege 
benötigt. Diese Arbeit muß nur ein einziges Mal gemacht werden. 

Nachdem ich dreimal aus Versehen meine Daten verlor, weil ich die 
BREAK-Taste drückte, habe ich nach einigem Hin und Her eine Miniatur- 
routine geschrieben, die die Funktion der BREAK-Taste außer Kraft 
setzte. Diese Routine steht in Zeile 295. Sie wird erst dann aktiviert, wenn 
die drei POKEs in Zeile 210 überlaufen werden. Deshalb empfehle ich, 
diese POKEs erst ganz am Schluß einzugeben, damit man bei Abschrei- 
befehlern die Möglichkeit hat, aus dem laufenden Programm auszu- 
steigen. 

Achten Sie vor allen Dingen auf das genaue Abschreiben der DATA- 
Zeilen. Ein Fehler in diesen Zeilen kann zum Absturz des Computers 
führen. Aus diesem Grund folgen Sie bitte dem Rat eines gebrannten 
Kindes: Nehmen Sie das Programm auf Kassette auf, bevor Sie es das 
erste Mal laufen lassen. 

Zum Schluß noch eine Warnung an die Besitzer von Diskettenlaufwer- 
ken: Da die Firma Dragon den RAM-Teil des Betriebssystems für die 
Floppies auf der ersten Graphikseite ablegte, ich diese Seite aber dazu 
benutze, um den simulierten Bildschirm der Help-Funktion (zu erreichen 
Über die Taste »Pfeil nach oben«) aufzubewahren, kann dieses Programm 
nicht zusammen mit einem Diskettenlaufwerk benutzt werden. Der Ver- 
such führt zum Absturz des Computers und unter Umständen sogar zum 
Neuformatieren der im Laufwerk liegenden Diskette. (AW) 


++ + 
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-110 Diese Zeilen können Sie weglas- 
sen. Sie sind nur dazu da, dem Benutzer 
zu zeigen, daß das Programm läuft und 
der Computer sich nicht aufgehängt hat. 


120 Von den ursprünglich vorhandenen 
vier Graphikseiten werden drei für die Auf- 
nahme von Daten freigeräumt. Die letzte 
wird zur Aufnahme einer Bildschirmseite 
benutzt. Außerdem wird im oberen RAM- 
Bereich Platz geschaffen für Maschinen- 
programme. Zusätzlich werden 5000 Byte 
saserviert für die Aufnahme von Strings. 


130 DD = Anzahl der Datensätze. Diese 
Zahl wurde als Variable definiert, um nach 
Fertigstellung des Programms den übrig- 
gebliebenen Speicherplatz optimal zu 
nutzen. 


140 

MO$(12) = Monatsnamen für Bild- 
schirm; 

M$(12) = Monatsnamen für Druck- 
ausgabe; 

JA(24) = Bildschirmcodes für Jah- 
reszahlen; 

DA(DD) = Buchungsdatum; 

TE(DD) = Zahlencode für Buchungs- 
text; 

SUDD) = Buchungsbetrag; 

ZW(DD) = Zwischensumme; 

TT$(26) = Buchungstexte; 

TW(26) = Summen pro Einzelposten; 

MD(26) = Modus (Einnahmen/Aus- 
gaben); 


MO$(2) = +und- Zeichen; 
K{26) = Kontonummerfür Buchhal- 
tung. 


150-190 Füllen der Tabellen aus DATA- 
Zeilen 


200 Variablen für Eingaberoutine: 
Vi=Anfangsadresse für den simulierten 
Skcoschirm bei Help-Funktion; V4=An- 
fanasadresse des realen Bildschirms; 
A=häufig benutzte Variable zum Umfär- 
Den von Zahlen und Buchstaben. 


10 ELS:PRINT=:PRINT 
20 PRINT"ZEERELERLIEKEIKKIIKKTEKEIKERI REN" ; 


30 PRINT"# *"; 
40 PRINT"? VRIL-CALC x"; 
50 PRINT"z au; 
60 PRINT"? AUTOR A. WERMINGHOFF x"; 
70 PRINT"* x"; 
80 PRINT": (C) 1983 VRIL x"; 
90 PRINT"* 2"; 


100 PRINT" tEREEEREISKIERREIKKEREKKKKKEN KEN" 
110 SCREEN 0,1 
120 PMODEO: PCLEAR1:CLEAR150, &H7FSE: CLEARS000 


150 DD=100 


140 DIMMO$(12),M$(12),JA(24),DA(DD),TE(DD),SU(DD), 
ZW(DD), TT$(28), TW(26) ,MD(26) ,MD$ (2) „K(26) 


150 FOR I=1 TO 12:READMOS(I),M$(I):NEXT I 
160 DATAjan, JANUAR, feb, FEBRUAR, mae,MAERZ, 
apr ,‚APRIL,mai ,MAI, jun, JUNI, 
Jul „JULI, aug, AUGUST, sep, SEPTEMBER, 
okt „OKTOBER, nov „NOVEMBER, dez ,„DEZEMBER 
170 FOR I=1 TO 24:READJA(I):NEXT I 
180 DATAS5,49,56,50,56,51,56,52,56,53,56, 
54,56,55,56,56,56,57,57,48,57,49,57,50 
190 MD$(1)="+":MD$ (2)="—-":MD$ (O)=" " 
200 D1$=CHR$ (13) » D2$=CHR$ (42) :» DE$=CHR$ (8) 
: D4$=CHR$ (128) : D5$=CHR$ (135) : Dö$=CHR$ (200) 
» D7$=CHR$ (32) » DZ$=CHR$ (197) :D3=13: V1=1504 
:V4=1024:R=54 


210 


220 


230 


240 


250 


260 


270 


280 


290 


295 
9700 
1000 


FOR I=0 TO 157 


:READ A$: POKESHTFFSE+I1 , VAL ("&H"+A$) 


:NEXT I 


»: POKEUH19C, 244: POKEXH19B, 127: POKE&RHI 9A, 126 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 
AS=1 


BE,04,40,10,8E,04,20,A6,80, 
A7,AO,8C,05,E0,26,F7,39 
8E,05,C0,10,8E,05,E0,A6,82, 
A7,A2,8C,04,20,26,F7,39 
8E,04,00,10,8E,06,00,A6,80, 
A7,AO,8C,06,00,25,F7,39 
8E,04,00,10,8E,06,00,A6,A0, 
A7,80,8C,06,00,25,F7,39 
8E,04,00,10,8E,08,00,A6,80, 
A7,AO,8C,06,00,25,F7,39 
8E,04,00,10,8E,08,00,A6,A0, 
A7,80,8C,06,00,25,F7,39 
00,00,BE,7F,C4,31,88,20,10, 
BF,7F,C4,A6,84,80,40,A7,80, 
BC,7F,C4,26,F5,39 
00,00,BE,7F,DC,31,88,20,10, 
BF,7F,DC,A6,84,8B,40,A7,80, 
BC,7F,DC,26,F5,39 
EC,E4,C3,00,04,ED,E4,39 


”"x2%22% HAUPTMENUE 438% 


1005 POKE&H19A,&H7E 


1010 


1020 
10530 


1040 
1050 


1080 


1070 


1080 


1090 
1100 
1110 


ELSO:PRINTS1,"vrilcalc"3sPRINTS20,"c"; 


:PRINTS27,"vril";:POKE1046,49 


: POKE1047,57:POKE1048, 56: POKE1049,51 
FOR I=1 TO 12:PRINTS96+1%32,MO$S(I);:NEXT I 
FOR I=1 TO 24STEP2:POKE1028+(I-1)%216+128,JA(I) 


: POKE1028+11I-1) #16+129,JA(I+1) 
:NEXT I 
MZ=38 


IF MA>OTHENPRINTS182, 5 :PRINTUSING" #4. #444"; MJ; 
:FOR I=0 TO 5:POKEV4+182+1,PEEK (V4+182+I) -R 


:NEXT I 
PRINTS74, "kassenbericht"; 
:PRINTS107,"kalkulation";z 
:PRINTS140, "statistik"; 


PRINTS205, "buchen"; :PRINTS237, "editieren"; 


:PRINTS269, "auswerten"; 
: PRINTSSO1, "datei ";D4$; "laden"; 


:PRINTSSSS, "datei ";D4$; "speichern"; 

PRINTSS65, "buchungen"” ; D4$; "drucken"; 
:PRINTS397, "auswertung" ;D4$; "drucken"; 
:PRINTS429, "datum"; :PRINTS461, "bestand"; 
:PRINTS472,3;=PRINTUSING"####.##"; BT; 

FOR I=0 TD 5:POKE1496+I,PEEK(1496+1)-R:NEXT I 


:PRINTS493, "ende"; 
CC=1:CX=0 
GOSUB 1160:PRINTS167+MZ+CX,; 
I$=INKEY$ 
sIF Ig="" 
THEN 1110 
ELSE I=ASC(I$) 


:IF I=94 AND CC>1 
THEN EC=CC-1:CX=CX-32 
ELSE 
IF I=10AND CC<10 
THEN CC=CC+1:CX=CX+32 
ELSE 
IF I=13 
THEN GOTO 1130 
ELSE G0TO 1100 


1120 GOTO 1100 
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210-295 Maschinenroutinen, die später 
benutzt werden, um den Bildschirm grün 
auf schwarz zu halten. Die Routine in Zeile 
295 bewirkt, daß die BREAK-Taste außer 
Funktion gesetzt wird. Erst die letzten drei 
POKE-Befehle setzen diese Routine in 
Kraft. (Diese POKEs erst ganz am Schluß 
eingeben!) 


1000 Hier beginnt das Hauptmenue. 


1005 Mit diesem POKE-Befehl wird die 
Unterbrechchungsroutine für die BREAK- 
Taste eingeschaltet. 


1010-1090 Bildschirmaufbau des 
Hauptmenues 


1090-1120 Eingabe für Menuewahl 
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1130-1260 Abhängig von CC wird die 1130 ON CC GOSUB 2000, 3000, 4000, 5000, 6000, 7000,8000 
„ . 1140 IF CC>7THEN ON CC-7 GDTO 9000, 10000, 11000 
gewählte Menuezeile schwarz auf grün 1150 BOTO1000 


gedruckt und bei Betätigung der ENTER- 1160 IF CC=1 
Taste in den entsprechenden Menue- THEN PRINTS205, "BUCHEN" ; 
punkt verzweigt. ELSE PRINTS205, "buchen"z 


1170 IF CC=2 
THEN PRINTS2537, "EDITIEREN"; 
ELSE PRINTS237,"editieren"; 
1180 IF CC=3 
THEN PRINTS289, "AUSWERTEN"; 
ELSE PRINTS289, "auswerten"; 
1190 IF CC=4 
THEN PRINTSS01,"DATEI LADEN"; 
ELSE PRINTS3S01, "datei ";D4$; "laden"; 
1200 IF CC=5 
THEN PRINTSSSS3S, "DATEI SPEICHERN"; 
ELSE PRINTSSSS, "datei ";D4$; "speichern"; 
i210 IF CC=ö 
THEN PRINTSS55, "BUCHUNGEN DRUCKEN"; 
ELSE PRINTSS55, "buchungen";D4%; "drucken"; 
1220 IF CC=7 
THEN PRINTSS97, "AUSWERTUNG DRUCKEN"; 
ELSE PRINTSS397, "auswertung";D4%; "drucken"; 
1230 IF CC=8 
THEN PRINTS429, "DATUM"; 
ELSE PRINTS429, "datum"; 
1240 IF CC=9 
THEN PRINTS461, "BESTAND"; 
ELSE PRINTS451, "bestand"; 
1250 IF CC=10 
THEN PRINTS495, "ENDE"; 
ELSE PRINTS495, "ende"; 
1250 RETURN 
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Worten 


2000 "#*%3%2% BUCHEN ##4#% 


2001 IF PEEK(&H&00)=255 OR PEEK (&H500)=0O 
THEN G0TO 13090 
ELSE IF MJ=0 OR SD=0 
THEN CLS0:PRINTS198, "bitte";D4$; 

"geben"; D4$; "sie";D4$; "erst"; 
:PRINTS226, "datum"; D4$; "und"D4$; 
"anfangsbestand";D4$; "ein"; 
:FOR I=1 TO 1400:NEXT 


: RETURN 
2010 D8$=" "+DZ5+" "+D7$5+" "+ 
DZ$s+" "+D7$+" " 
2020 D9$=D46+D4$+D4$+D5$6+D465+D4$+D5$ + 


STRING$ (7, 128) +D5$+STRING$ (8, 128) + 
D5S$+STRING$ (8, 128) 


2050 X4=12:X5=5 


2040 AS=1:IF SB=1 


THEN X=XB: EXECKHFFBS:GOTO 2090 


2050 CLSO: PRINT"nr";D4%; D4$; "da" 3 D4$; "text"; 
:PRINTS15, "betrag";D4$; D4$; D4$; "zw summe"; 
:POKE1050,45: IF N=O 


THEN 1=1:60T0 2080 
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2000-2360 Unterprogramm Buchen 


2001 Wenn die Anfangsadresse des si- 
mulierten Bildschirms für die Help-Funk- 
tion (zu erreichen durch Drücken der Taste 
»Pfeil nach oben«) auf O oder 255 steht, so 
befindet sich kein Buchungstext im Spei- 
cher. Nach einer Fehlermeldung wird ins 
Hauptmenue zurückverzweigt. Solange 
noch kein Abrechnungsmonat und kein 
Kassenanfangsbestand eingegeben wur- 
de (Schalter MJ und SD werden in den 
Unterprogrammen gesetzt), ist das Bu- 
chen unmöglich, und es wird ins Haupt- 
menue gesprungen. 


2010 D8$ = Eingabestring schwarz auf 
grün (positiv) 


2020 D9$ = String wie Eingabestring 
grün auf schwarz (negativ) 


2030 X4 = Variable für Eingaberoutine 

2040 Der SB-Schalter wird gesetzt beim 
Ausrechnen von Zwischensummen. Da- 
nach entscheidet sich, ob ein neuer Bild- 
schirm aufgebaut werden muß oder nicht. 


2050 Kopfzeile 


2060 und 2070 Ausdrucken der letzten 
Buchungen (entweder aus der eingelese- 
nen Datei oder nach dem Sortieren). 


2080 Volldrucken des restlichen Bild- 
schirms mit Strings (negativ) 


2090 Ausgabe des Untermenues in der 
Fußzeile 


2100 Unter der letzten Buchung wird die 
Eingabezeile (positiv) ausgedruckt. 


2110 Ausgabe der Buchungsnummer 


2120 Löschen einer Fehleingabe; Be- 
grenzung der möglichen Eingaben durch 
Angabe der ASCII-Codes für das niedrig- 
ste Zeichen und das höchste (hier O und 
9); Abfrage, ob ins Hauptmenue gesprun- 
gen werden soll (Schalter ZM), dann Lö- 
schen der letzten Buchung, Speichern 
des Bildschirminhalts und Rücksprung; 
Abfrage, ob gelöscht werden soll (Schalter 
LO); sind weder ZM noch LO gesetzt, 
Speichern des Buchungsdatums DA in 
der Tabelle. 


2130 Prüfung des Datums auf Zulässig- 
keit (Unterprogramm 9080); bei Falschein- 
gabe (Schalter KS) zurück zu 2120. 


2140 Eingabe des Buchungstextes 
durch Drücken einer Buchstabentaste. 
Jeder Buchstabe kann im Menuepunkt 
Editieren mit einem Text belegt werden 
(siehe dort). Prüfung, ob zu dieser Taste 
ein Buchungstext vorhanden ist, Zurück- 
weisung bei fehlendem Buchungstext. 
Wenn alles in Ordnung ist, Ausgabe des 
Buchungstextes. 


2150 Bestätigung des Textes durch die 
ENTER-Taste 


2160 Eingabe des Buchungsbetrages 
SUN), Speichern in Tabelle 


2170 Wenn der Modus der Buchung ne- 
gativ ist, wird das Vorzeichen der Bu- 
chung negativ. 


2180 Ausgabe des Buchungsbetrags 


2070 


2080 


2090 


2100 


2110 


2120 


2150 


2140 


2150 


2180 


2170 


2180 


IF N<7 
THEN FOR I=1 TON 
:XD=1#32:XI=1:60SURB 25360: XV=1452 
:GOSUB 15050 
:NEXT I:GOTO 2080 
FOR I=1 T0 7 
:NR=N-7+1:XD=1%#32: XI=NR: GOSUB 2580 
»XV=1#532:60SUB 135050 
:NEXT I 
FOR J=I TO 14 
:PRINTSJ#32,D9$; 
»:NEXTJ»:X=(1) 432 


PRINTS480,STRING$ (31,128); 
:PRINTS480, CHR$ (198); 
:PRINTS484, "men"; D4$; "loe";D4$; "cur"; 


PRINTSX,D8$; 


N=N+1: PRINTSX, ;:PRINTUSING"###" N; 


PRINTSX+4," "z3:PRINTSX+4,; 
»: T1=47: T2=58: D=2:60SUB 12000 
»IF ZM=1 
THENZM=O: N=N-1:XB=X: EXECKHFFA2: SB=1 
»: RETURN 
ELSE IF LO=1 
THEN G0T0O 2220 
ELSE DA(N)=VAL (D$) :PRINTSX+4,; 
: PRINTUSING"##";DA(N); 


G60SUB 9080: IF KS=1THEN KS=0:60T0 2120 


PRINTSX+7, 5: A$=INKEY$ 
:IF Ag="" 
THEN 60T0 2140 
ELSE PRINT" "33 A=ASC (A$) 
:IF A<65 OR A>90 
THEN GOTO 2140 
ELSE IF TT$(A-64)="" 
THEN PRINTSX+7, "FEHLT !"3 
:60T0 2140 
ELSE PRINTSX+7,TT$(A-64)3 
: TEIN)=A-64 


A$S=INKEY$: IF A$=""THEN GOTO 2150 
ELSE IF A$< >CHR$ (15) 
THEN GOTO 2140 


PRINTSX+15,3:T1=46: T2=59: D=7:G60SUB 12000 
: SU{N)=VAL (D$) :PRINTSX+15, 35 


IF MD(A-54)=2 THEN SU{N)=-SUIN) 


PRINTUSING" #4. 4" 5 SU CN) ; 
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2190 BT=BT+SU (N) = ZW(N)=BT:PRINTSX+24, ; 


2200 


2210 


2220 
2230 


2240 


2250 


22680 


2270 


2280 
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: PRINTUSING" #444. ##" 3 ZW(N); 


AV=X:GDSUB 13030: X2=X2+1 2 X=X+32 
:IF X>448 THEN 60T0 2210 

ELSE G60TO 2100 
X=X-32: EXECKHFFSE:GOTO 2100 


1190.00 ee 


2190 Errechnen und Ausdrucken der 
Zwischensumme 


2200-2210 Umwandlung der Bu- 
chungszeile in grün auf schwarz; Prüfung, 
ob die unterste Zeile erreicht ist; wenn ja, 
Nach-oben-Scrollen des Bildschirms oh- 
ne Beschädigung der Kopf- und Menue- 
zeile. 


re ee 
nd Er , 


53.45] 187, 


It | 
ch 


2 
ne 
ee 


Br 


A 


a a 


N=N-1:NI1=PEEK (V4+X1) 
:IF Ni<112 OR N1>121 THEN Ni1=0 

ELSE Ni=Ni1-112 
N2=PEEK (V4+X1+1) 
:IF N2<112 OR N2>121 THEN N2=0 

ELSE N2=N2-112 
NS=PEEK (V4+X1+2) :NS=NS-112 


NR=100&N1+10#N2+NS: N1=0: N2=0: NS3=0: ZU=SU (NR) 
:BT=BT-ZuU 
:FOR I=NR TO N-1 
:DA{I)=DA(I+1):TE(I)=TE(I+1): :SU(I)=SU(I+1) 
: ZW{I)=ZW(I+1)-ZU 
:NEXT Iz:DA(N)=O: TE (N) =0: SU (N) =0: ZW(N)=O 


FOR I=0 TO 2 
: POKE (V4+X1+I) „PEEK (VA4+X1+1) 654 
:NEXT I 
FOR I=X1 TO 415 STEP 32 
:FOR J=3 TO 24 
:POKEV4+I+J,PEEK (V4+1+J+372) 
:NEXT J:GOSUB 2320 
:NEXT I 
IF NR=0 
THEN PRINTSX,D9$; :X=X-32:L0=0: N=N-1:60TDO 2100 





2220 Beginn der Löschroutine 


2220-2240 Aus dem Bildschirmcode 
der ersten drei Zeichen in der Zeile (die 
Buchungsnummer) wird die Buchungs- 
nummer der Zeile errechnet, in der der 
Cursor steht. 


2250 Diese Buchungsnummer wird in 
NR gespeichert. Ab NR bis zur letzten Bu- 
chung werden alle Buchungen um einen 
Tabellenplatz nach unten verschoben. 
Von der letzten Zwischensumme (dem ak- 
tuellen Kassenbestand BT) wird der Bu- 
chungsbetrag abgezogen. Der bisher 
höchste Buchungssatz wird gelöscht. 


2260-2270 Der Bildschirminhalt wird 
eine Zeile nach oben gerückt. Alle auf NR 
folgenden Zwischensummen werden neu 
errechnet (GOSUB 2320). 


2280-2300 Abhängig von der Bu- 
chungsnummer in der Cursorzeile NR und 
der letzten Buchungsnummer N wird der 


Löschschalter LO wieder auf 0 gesetzt 
und die Löschroutine verlassen. Vorher 
wird die zur Zeit gültige letzte Buchungs- 
nummer um 1 vermindert (N=N-1) und die 
Druckposition eine Zeile höher gesetzt 
(X=X-32). 


2310 Solange die Cursorzeile nicht mit 
der letzten Buchungszeile übereinstimmt, 
und diese auch nicht auf dem Bildschirm 
sichtbar ist, muß durch das Löschen der 
restliche Bildschirm eine Zeile nach oben 
gerückt werden und die auf die letzte Zeile 
folgende Buchung ausgedruckt werden 
(GOSUB 2360). Der Beginn der aktuellen 
Eingabezeile (XD) wird aus der Cursorzeile 
errechnet. (XD=NR+1). 


2315 Rückkehr aus der Routine, wenn 
die letzte Buchung gelöscht wurde und sie 
auf der untersten Bildschirmzeile stand. 


2320-2350 Ausdrucken der neuen Zwi- 
schensummen und Umwandlung in grün 
auf schwarz. 


2360 Ausgabe einer bestehenden Bu- 
chungszeile 


3000-3220 Unterprogramm Editieren. 
Dieser Menuepunkt muß angesprungen 
werden, wenn man zum ersten Mal mit 
dem Programm arbeiten will. Ererlaubt die 
Belegung der Buchstabentasten mit 
einem Text. Dieser Text erscheint bei 
Drücken der entsprechenden Taste im 
Menuepunkt Buchen. Ich empfehle, die 
Belegung der Tasten vor dem Einrichten 
auf einem Blatt zu erarbeiten, damit man 
soweit wie möglich zu den Buchstaben 
passende Texte hat (z.B. A = AUTO). 
Wenn man mit einem Steuerberater zu- 
sammenarbeitet, erleichtert es ihm die Ar- 


2290 


2300 


2510 


2515 


25320 


2330 


25340 


2350 


23560 


3000 


IF NR=N 
THEN PRINTSX,D9$; :X=X-532:L0=0:N=N-1:60T0 2100 
IF NR=N-1 
THEN N=N-1:1L0=0:60T0 2100 
IF NR<N 
THEN XD=448: XI=NR+1:G60SUB 2560:X1=448 
»XZ=NR+1:G60T0D 2120 
IF N<NR 
THEN N=N-1:PRINTSX,D9$; :X=X-32:L0=0 
:G0OTO 2100 


Ni=PEEK(I+V4) 
ıIF N1i=32 OR N1=128 
THEN N1=0 
ELSE N1=N1-48 
N2=PEEK ( I+V4+1) 
IF N2=32 OR N2=128 
THEN N2=0 
ELSE N2=N2-48 
N3=PEEK (V4+1+2) 
:IF N3=32 OR N3=128 
THEN N3=0 
ELSE N3=N5-48 
=N1#2100+N2%210+NS 
IF NR=O 
THEN RETURN 
ELSE PRINTSI+24,; 
:PRINTUSING" ####4#. #4"; ZWINR) 5 
:FOR J=(V4+1+24) TO (V4+1+31) 
: POKEJ „PEEK (J) -654:NZ=NR 
:NEXT J 
: RETURN 
PRINTSXD, ;3:PRINTUSING"###"; XI; 
:PRINTDZ$; :PRINTUSING"##";DA(XI); :PRINTDZS; 
:PRINTUSING"% %"3; TTS(TEIXI))3:PRINTDZS$; 
: PRINTUSING"#####.##"3 SUCXI) 3 :PRINTDZS; 
: PRINTUSING" #####. 44"; ZW(CXI) 3 :RETURN 


”"x222%* EDITIEREN ##%4% 
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35010 


3020 


Ss050 


Ss040 


3050 
30650 
Ss070 
3080 
3090 


35100 
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IF SE=1 
THEN GOSUB 3220: X=644: XV=X 
:GDSUB 130680:60TD 3080 


CLS:PRINTSO, "typ";D4$; "bezeich";D4$; "mod"; 
D4%; "typ"3D4$; "bezeich";D4$; "mod"; D4$; 
PRINTSTRING$ (3, 140) 5;CHR$ (141) 3 STRING$ (7,140) ; 
CHR$ (141) ;STRING$ (3, 140) ;D7$; STRING$ (3, 140) ; 
CHR$ (141); STRING$ (7,140) 5; CHR$ (141); 

STRING$ (3, 140) ;D4$; 

PRINTSS4,; 

:FOR I=1 TO 13 
PRINT" "3CHR$(I+64) 5; " "DZ$; 
:PRINTUSING"% A":TT$(I); 
:PRINTDZ$;" "3MD$S(MD(I));" "; 

CHR$ (160); " "3CHR$ (I+13+64);" ";DZ$; 
:PRINTUSING"% A"; TT$(1I+13); 
:PRINTDZ$;" "3MDS(MD(I+13)):XV= (141) 832 
:GOSUB 13030 

:NEXT I 
GOSUB 15010: PRINTS487, STRING$ (13,128); 
X=64: X4=4:X5=7 
ZA=1:XV=X:60SUB 13050 
A$S=INKEY$: IFA$=""THEN GOTO 3080 
IF A$=CHR$(10)AND X<>464 
THEN XV=X:60SUB 13050: X=X+32: ZA=7ZA+1 
:G0SUB 13070: XV=X:G60SUB 13060:60T0 3080 
ELSE IF A$=CHR$ (10) 
THEN G60T0 3080 
IF A$=CHR$ (94) AND X< >64 
THEN XV=X:60SUB 13050: X=X-32: G0OSUB 13080 
» ZA=ZA-1:XV=X:G60SUB 13050:60T0 3080 
ELSE IF A$=CHR$ (94) 
THEN GOTO 3080 


a 
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beit, wenn Sie beider Frage nach der Kon- 
tonummer die Kontonummer eingeben, 
die er bei der Verbuchung verwendet. Die- 
se Kontonummer erscheint nicht während 
der Arbeit mit dem Programm, sondern 
erst wieder bei der Druckausgabe. 


3010 Wenn schon mal editiert oder eine 
Datei eingelesen wurde, ist der Schalter 
SE auf 1. Dann wird der Bildschirm aus 
dem Speicher geholt. Sonst muß er erst 
aufgebaut werden. 


3020-3050 Aufbau des Bildschirms 


3060-3100 Steuerung der Cursorzeile 
mit Pfeiltasten nach oben (CHR$(94)) und 
unten (CHR$(10)); Sprung in die Eingabe- 
routine 


3110 Zuordnung der Eingabe (Bu- 
chungstext, Modus) in die Tabelle TT$ 


3115 Bei Eingabe von sieben Leerzei- 
chen wird die alte Eingabe gelöscht. 


3120 Eingabe des Rechnungsmodus (+ 
für Einnahmen, — für Ausgaben) 


3130-3160 Eingabe der Kontonummer; 
zurück zu neuer Eingabe 


3170 Speicherung des Bildschirms in 
Graphikseite 1; danach zurück ins Haupt- 
menue. 


3180-3220 Einsprungspunkte für die 
Help-Funktion in den Programmpunkten 
Buchen und Auswerten 


4000-4360 In diesem Menuepunkt wer- 
den die Buchungen nach Datum sortiert 
und die Gesamtkosten pro Buchungstext 
in zwei Arten auf den Bildschirm gebracht: 
als absolute Zahl und als Säulendia- 
gramm. Die Höhe der Säule richtet sich 
nach dem prozentualen Anteil an den Ge- 
samteinnahmen bzw. -ausgaben. 


4001-4010 Überprüfung, ob eine Datei 
im Speicher ist 


4020-4120 Sortieren der Tabelle nach 
Datum. Hierbei wird eine sogenannte bi- 
näre Sortierroutine verwendet. 


4130-4170 Ausgehend vom ersten, zu 
Anfang eingegebenen Kassenbestand 
werden die Zwischensummen und die Ko- 
sten bzw. Einnahmen pro Text neu er- 
rechnet. 


3110 


5115 


3120 


3130 


5140 
3150 
3160 
5170 


5180 
3190 


5200 
5210 
3220 
4000 


4100 
4110 
4120 
4130 
4140 
4150 
4150 
4170 


C$=A$:D$="":PRINTSX+5,3:D=7:T1=31: T2=91 
:G0OSUB 12050 
: IF S2=1 
THEN S2=0:PRINTSX+4, TT$(ZA);5:GOTO 3080 
ELSE IF ZM=1 
THEN ZM=0:SE=1:XE=X:XV=X:60SUB 13050 
:GOSUB 3170: RETURN 
ELSE TT$(ZA)=D$:PRINTSX+4,; 
: PRINTUSING"% K"3TTSIZA; 
IF TT$(ZA)=" “ 
THEN TT$(ZA)="":MD(ZA)=0:PRINTSX+13," "3 
ıK(ZA)=0:60T0 3080 


PRINTSX+13,;:D=1:T1=42: T2=45: GOSUB 12000 
IF Ds="+" 
THEN MD(ZA)=1 
ELSE IF Ds="-" 
THEN MD{ZA)=2 
ELSE GOTO 35120 
PRINTS495,"kto nr "=:POKE1520,46 
: T1=47: T2=58: PRINTS499, ;:D=7:60SUB 12000 
ıK(ZA)=VAL(D$):FOR I=1 TO 1000:NEXT I 
:PRINTS493,STRING$ (15,128); 
GOTO 3080 
X=X+32: IF X=480 THEN X=80:60T0 3080 
GOTO 3080 
EXEC&H7F8O: RETURN 


EXECKHTFFAZ:EXECKHFFYF1:FOR I=1 TO 200: NEXT I 
IF INKEY$="" 
THEN GOTDO 35190 
ELSE EXEC&H7FBS: RETURN 
EXEC&KH7FFBS 
IF INKEY$<>""THEN RETURN 
EXEC&H7F91: RETURN 
"x2x4% SORTIEREN UND AUSWERTEN #4#%4% 


IF N<=1 THEN GOTO 13090 

IF SB=0 THEN GOTO 4130 

ECLSO: PRINT" auswertung”; 

:PRINTS232, "bitte";D4$; "warten"; 

”x4%% SORTIEREN #4%4% 

NS=N: AS=NS 

AS=FIX(AS/2):IF AS=O THEN GOTO 4140 
BS=1:C5=NS-AS 

DS=BS 

ES=-DS+AS 

IF DA(DS)<=DA(ES) THEN GOTO 4110 

HS=DA (DS) » 15S=TE (DS) : JS=SU (DS) »DA(DS)=DA (ES) 
s TE(DSI=TE (ES) :SU(DS)=SU (ES) »DA(ES) =HS 

» TE(ES)=1S: SU (ES) =JS: DS=DS-AS 

:IF DS<1 THEN GOTO 4110 

G60TO 4070 

BS=BS+1:1IF BS>CS GOTO 4040 

GOTO 4050 

”2x%%* ZWISCHENSUMMEN AUSRECHNEN ##%#% 

25=BI 

FOR I=1 TO N: Z5=275+S5U(I)=ZW(I)=ZS:NEXT 1:5B=0 
FOR I=1 TO 26:TW(I)=0O:NEXT I 

FOR I=1 TO N:TW(TE{I))=TW(ITELT)I)+SUCI)SNEXT I 
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4180 ’*4%% TEXTDARSTELLUNG DER POSTEN k#%*% 4180-4220 Ausgabe der Zahlenwerte 
4190 CLSO:PRINT"posten"D4$D4$"betrag"D4$D4$; nastext 
"posten"D4$D4$"betrag" D4$D4$; vn Buchu | 
4200 FOR I=1 TO 13 
: PRINTUSING"% A"3TTS(I); 
: PRINTUSING" #44." 3 TW(T) 5 :PRINTDZ$S; 
: PRINTUSING"% A" TTSCI+H13)5 
: PRINTUSING" #444. #4" 5 TWCI+13) : XV=1432 
:60SUB 13030 
NEXT 1 
4210 PRINTS484, "weiter "D4$"bitte"D4$"enter"; 
4220 IF INKEY$=""THEN GOTO 4220 
4230 ’*4%% BLOCKDIAGRAMM #*%*% 4230-4360 Das Blockdiagramm wird auf 
un en . der Textseite ausgegeben. Um zu über- 
sIF MDId)e2 prüfen, welcher Posten die höchsten Ko- 
THEN G0OTO 4260 sten verursacht, ist die Pfeil-nach-oben- 
ELSE 6P=6P+TW{I) Taste mit einer Hilfsfunktion belegt. Drückt 
:60T0 4270 der Benutzer auf diese Taste, so erscheint 
4260 GN=GN+TW(I) Ä f dem Bildschi 
4270 NEXT I die Tastenbelegung auf dem Bildschirm. 
4280 CLSO:PRINTS397, "abcdefghi jklmnopgrstuvwxyz"; Jede andere Taste bringt ins Hauptmenue 
4290 PRINTS3ZS2, STRING$ (32,172); zurück. 
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5000-5170 Laden der Datei. An diesem 
Punkt werden alle Daten, die man nach 
oer letzten Arbeit mit dem Programm ge- 
speichert hat, eingeladen. Das bedeutet: 
oe Buchungssätze, die Tastenbelegung, 
oer letzte Kassenbestand und — als Ma- 
schinenprogramm — der gesamte Bild- 
schirm der Help-Funktion. 


5010-5030 Warnung bei vorhandener 
Datei im Speicher. Abfrage auf NA$, weil 
wohl niemand versuchen wird, eine Datei 
zu laden, wenn er noch nie mit dem Pro- 
gramm gearbeitet hat. 


5040 Wird die Frage »Alter Monat« mit N 
beantwortet, so werden die gesamten 
aingelesenen Daten außer des letzten 
Kassenbestandes und der Tastenbele- 
gung nach dem Einlesen gelöscht. Sonst 
wird die Datei genau in die Form gebracht, 
oe sie beim letzten Abspeichern hatte. 


5050-5100 Vorbereitung auf das Einle- 
sen der Daten vom Kassettenrecorder 


4500 FOR I=1 TO & 


4310 


4320 


43530 


4540 
4350 


45355 
4560 


5010 


5020 


5050 


5040 


5050 
5050 


5070 


5080 


:PRINTS (1-1) #32+29,MID$("EIN %"+CHR$(207),1,1)D4$ 
MID$ ("AUS %"+CHR$ (191) ,1,1)35 
:NEXT I 
FOR I=1 TO 10 
: PRINTSI#32, MID$ ("908070605040302010", (142) -1,2); 
:NEXT I 
FOR I=1 TO 26 
sIF TW(II<O 
THEN G0TO 4330 
ELSE IF TW(I)>O 
THEN FOR J=0 TO 19 
»:IF (TWLIY/KCGPI) #20>J 
THEN SET ((1+3) #2-1,21-J,5) 
:NEXT J 
IF TWIII<O 
THEN FOR J=0 TD 19 
» IFC(TWEII/ GN) ) #20) >J 
THEN SET ((1+3) #2-1,21-J,4) 
:NEXT J 
NEXT I 
A$S=INKEY$: IF A$="" 
THEN G0OTO 4350 
ELSE IF A$=CHR$ (94) 
THEN G0SUB 3180:60T0 4350 
AS=0 
RETURN 


"23% DATEI LADEN 488% 


IF NA$<>"" 
THEN CLSO:PRINTS196, "vorsicht "; 
:POKE1228, 535: PRINTD4$"sie"D4$"zerstoeren"; 
:PRINTS228, "ihre"D4$"daten"D4$"im"D4$"speicher"; 
:PRINTS2&0, "wenn"D4$"sie"D4$"eine"D4$; 
"datei "D4$"laden";z 
:POKE1274,44 
ELSE G0TO 5040 
PRINTSS31, "laden" ; D4$; D4$; : POKE1360, 63 
PRINT" j"D4$"n"; :POKE1363,47 
AS=INKEY$: IF A$<>"N" AND As<>"J" 
THEN 60T0 5050 
ELSE IF A$="N"THEN RETURN 
CLSO 
:PRINTS72, "alter"D4$"monat "D4$" j"CHR$ (128) "n"; 
:POKE1109,47 


T$=INKEY$: IF T$<>"J"AND T$<>"N"THEN GOTO 5050 
PRINTS134, "bitte"D4$"geben"D4$"sie"D4$"den"; 
:PRINTS169, "dateinamen"D4$"ein";z 


: PRINTS2S3S," ";:PRINTS23S,;:D=8: T1=44 
: T2=91:60SUB 12000: NA$=D$ 
MOTORON 


:PRINTS291,"legen"D4$"sie"D4$"die"D4$ 
"kassette"D4$"ein"5;3:POKE1341,44 
: PRINTSS25, "spulen"D4$"sie"D4$"zurueck"D4$"und"; 
: PRINTSSS8, "druecken"D4$"sie"D4$ 
CHR$ (125) "enter "CHR$ (125); 
IF INKEY$<>CHR$ (13) THEN GOTO 5080 
ELSE MOTOROFF 
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5125 
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5150 


5160 


5170 
8000 


8010 


6020 


8050 


68040 
6080 


6070 
6080 


&090 
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PRINTS418, "druecken"D4$"sie"D4$"play"D4$; 
"und"D4$CHR$ (125) "enter "CHR$ (125); 
IF INKEY$< >CHR$ (13) 
THEN 60T0 5100 
ELSEPRINTS490, "bitte"D4$"warten"; 
OPEN" I",#-1,NA$ 
: INPUT#-1,MJ,MA,BI,BT,N,SE,SD 
FOR I=1T0 DD 
: INPUT#-1,DA(I),TE(I),SU(I),ZW(I) 
NEXT I 
:FOR I=1T02& 
: INPUT#-1,TT$(I),TW{I) „MD{I),K(I) 
:NEXT I 
» CLOSE#-1:CLOADM"" 


IF T$="N"THEN BI=BT 
CLSO 
:PRINTS154,"die"D4$"datei "D4$"ist"D4$"geladen"; 
IF T$="N" 
THEN N=0 
:FOR I=1T0 DD 
:DA(I)=0: TE(I)=0:SU(I)=0: ZW I)=O 
: NEXT 
:PRINTS196, "bitte"D4$"nehmen"D4$"sie"D4$ 
"die"D4$"kassette"; 
:PRINTS227, "aus"D4$"dem"D4%"recorder "D4$ 
D4$"damit"D4$"die";z 
IF T$="N" 
THEN POKE1258,44 
:PRINTS2S8, "daten"D4$"nicht "D4$ 
"zerstoert"D4$”"werden"; 
:POKE1310,45:MJ=0: MA=0O 
FOR I=1 TO 2000:NEXT I 
RETURN 


"xxx DATEI SPEICHERN ##4%% 


IFDA(1)=0 
THEN CLSO 

:PRINTS195, "keine"D4%"datei "D4$"im"D4$"speicher"; 

:FOR I=1 TO 1000:NEXT I:RETURN 
ELSO:PRINTS134, "bitte"D4$"geben"D4$"sie"D4$"den";z 
:PRINTS169, "dateinamen"D4$"ein"; 
:PRINTS23S,"” "3:PRINTS2SS,;3 
: D=8: T1=44: T2=91:60OSUB 12000: NA$=D$ 
MOTORON 
:PRINTS291,"legen"D4$"sie"D4$"die"D4$"kassette"D4$"ein"; 
:POKE1341,44: PRINTS323, "loeschen"D4$"sie" 
D4$"den"D4$" anfang"D4$"und"; 
:PRINTSS57, "spulen"D4$"sie"D46"ganz "D4$" zurueck"; 
:POKE1404,46 
:PRINTS385, "dann"D4$"druecken"D4$"sie"D4$"bitte"D4$; 
PRINTCHR$ (1253) ; "enter"; CHR$ (125); 
IF INKEY$<>CHR$ (13) THEN 6050 ELSE MOTOROFF 
PRINTS417, "druecken"D4$"sie"D4$"rec"D4$"und"D4$"play"D4$"dann"; 
:PRINTS480, CHR$ (125) "enter "CHR$ (125); 
IF INKEY$<>CHR$ (13) THEN GOTO 6070 
PRINTS490, "bitte"D4$"warten";z 
:MOTDRON:FOR I=1 TO 8000:NEXT I 


DPEN"D" ,#-1,NA$:PRINT#-1,MJ,MA,BI,BT,N,SE,SD 
FOR I=1T0 DD 
:PRINT#-1,DA(I),TE(I),SUCI),ZWiI) 
:NEXT I 
:FOR I=1 TO 26 
:PRINT#-1,TT$(I),TWCI) ,MD(T),K{T) 
:NEXT I1:CLOSE#-1:CSAVEM" " , &H&600, &H800, &H600 


5110-5120 Die Datei, deren Name in 
Zeile 5060 eingegeben wurde, wird geöff- 
net. Vor dem Einlesen der Daten werden 
Datum, Kassenanfangsbestand, letzte 
Buchungsnummer und der aktuelle Stand 
des Editierschalters geladen. Danach 
werden die Datei und zuletzt als Maschi- 
nenprogramm der Bildschirm der Help- 
Funktion geladen. 


5125-5150 Wenn vom alten Buchungs- 
monat nur der Kassenbestand übernom- 
men werden soll, wird außer diesem nur 
der Bildschirm beibehalten. Der Rest wird 
gelöscht. 


6000-6110 Speichern der Datei im aktu- 
ellen Stand 


6010 RETURN, wenn keine Datei im 
Speicher ist 


6020-6070 Vorbereitung zur Aufnahme 
der Tabelle als (sequentielle) Datei auf 
Kassette 


6080 Durch die FOR... NEXT... Schlei- 
fe wird das Vorspannband der Kassette 
übersprungen. So erspart man sich das 
lästige Umspulen mit Bleistift. 


6090-6100 Aufnahme des Datums usw. 
und Abspeichern der Tabelle auf Kassette 


7000-7999 Drucken der sortierten Bu- 
chungssätze (die Steuercodes gelten für 
Epson-Drucker) 


7010 Rücksprung, wenn keine Datei im 
Speicher ist oder nach dem letzten Sortie- 
ren der Menuepunkt Buchen angesprun- 
gen wurde. 


7020-7030 Vorbereitung auf den Druck 


7040 Ein Seitenzähler wird auf 1 gesetzt 
und ein Unterprogramm angesprungen, 
das den Kopf druckt. 


7050-7090 Drucken der Buchungssätze 
von 1 bis N. In Zeile 7060 werden die Zei- 
\en gezählt und bei Erreichen der maxima- 
\en Zeilenzahl pro Seite in das oben er- 
wähnte Unterprogramm gesprungen. 


7095-7999 In diesem Unterprogramm 
wird der Kopf gedruckt. Dazu zählt neben 
der Überschrift die Seitenzahl und, abhän- 
gig von dieser, der Kassenanfangsbe- 
stand bzw. ab Seite 2 der Übertrag von 
der letzten Seite. 


8000-8130 Der einfachste Menuepunkt: 
Nach dem Druck einer Überschrift werden 
die Posten, die Beträge zu den Posten 
und ihr Anteil an den Gesamtkosten bzw. 
-erträgen ausgedruckt; danach die Ge- 
samtkosten und Gesamteinnahmen. 


6110 


7000 
7005 
7010 


CLSO 
:PRINTS1534, "die"D4$"datei "D4$"ist"D4$"gespeichert"; 
:FOR I=1 TO 2000:NEXT I:RETURN 
"x222% BUCHUNGEN DRUCKEN ##%*#% 
IF TE(1)=O THEN GOTO 13090 
IF AS=O 
THEN G60T0 7020 
ELSE CLSO 
:PRINTS195, "bitte"D4$"gehen"D4$"sie"D4$" zuerst"; 
:PRINTS227,"in"D4$"menuepunkt "D4$" AUSWERTEN"; 
:FOR I=1 TO 5000: NEXT:RETURN 





7020 


7030 
7040 
709050 
7080 
7070 


7071 


7090 


7095 
7100 


7105 
7106 


7110 


7115 
7120 


7999 
8000 
8010 
8020 


CLSO: PRINTS196, "bitte"D4$"positionieren"D4$"sie"; 
:PRINTS2S3S1, "ihren"D4$"drucker "D4$; "so"; 
:PRINTS282, "dass"D4$"die"D4$"reisskante"; 
:PRINTS297, "sichtbar "D4$"wird";z 
:PRINTS489, "weiter "D4$CHR$ (123) "enter "CHR$ (125) 3; 
:POKE1271,44 
IF INKEY$<>CHR$(13) THEN GOTO 7030 
57=1:60SUB 7100:57=2 
FOR I=1 TON 
IF ZZ=72 THEN GOSUB 7095: 857=S7+1 
US$=" #44 4 HarHhhh a” 

+" % aa eh. 
ZZ=77+1:PRINT#-2,USING US$; 1,DA(I),K(TE(I)), 
TT$(TE(I)),SUCI),ZWiI) 
NEXT IsRETURN 


FOR J=1 TO 7:PRINT#-2:NEXT J 

FOR J=1 TO 3:PRINT#-2:NEXT J 

:PRINT#-2,CHR$ (14) "” KASSENBERICHT " 
M$(FIX(MJ));" "RIGHTS (STR$ (MJ) „4) CHR$ (15) 


:PRINT#-2 
FOR J=1 TO 2 
U1$=CHR$ (20) +" SEITE ###"+STRING$ (29,32) 
+"ANFANGSBESTAND: ######.## DM" 
: U2$=CHR$ (20) +" SEITE ###"+STRING$ (29,32) 
+"UEBERTRAG: #HHH#H4.#4 DM" 
IF SZ=1 


THEN PRINT#-2,USING U1$;57,Bl;s 
ELSE PRINT#-2,USING U2$;57, ZW(I-1); 
NEXTJ= PRINT#-2,CHR$ (10); 


PRINT#-2 

:PRINT#-2," NR. DATUM KTO.NR 
BUCHUNGSTEXT BETRAG ZWISCHENSUMME" 

:PRINT#-2: ZZ=15: RETURN 

RETURN 


"s2x4% AUSWERTUNG DRUCKEN X###% 
IF TE(1)=0 THEN GOTO 13090 
IF AS=0 
THEN GOTOD 8050 
ELSE CLSO:PRINTS195, "bitte"D4$"gehen"D4$"sie" 
D4$" zuerst"; 
:PRINTS227,"in"D4$"menuepunkt "D4$" AUSWERTEN"; 
:FOR I=1 TO 5000: NEXT:RETURN 


135 


80530 


8040 
8050 


8080 
8070 
8080 
8090 
8100 
8105 


8110 


8120 


8130 


7000 
7010 


27020 


9050 
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CLSO 

:PRINTS195, "bitte"D4$"positionieren"D4$"sie"z; 

:PRINTS2S1,"ihren"D4$"drucker "D4$"so"3 

:POKE1271,44 

:PRINTS2582, "dass"D4$"die"D4$"reisskante"”; 

:PRINTS297, "sichtbar "D4$"wird"; 

:PRINTS489, "weiter "D4SCHR$ (125) enter "CHR$ (125); 

IF INKEY$<>CHR$ (13) THEN GOTO 8040 

PRINT#-2,CHR$(14)" AUSWERTUNG KASSENBERICHT " 
MS(FIX(MJ))" "RIGHT$(STR$ (MJ) ,„A)CHR$ (15) 


:PRINT#-2 
PRINT#-2," POSTEN BETRAG PROZENT" 
:PRINT#-2 
FOR I=1 TO 26 
u1l$s=" % 7 a an." 
u2$=" % 7 ae a." 

IF TW(I)>O 

THEN PRINT#-2,USINGU1$; TT$(I),TW(I) „ABS(TW(IIX100/ (GP)) 
:GDOTO 8105 
IF TW(I)<O 


THEN PRINT#-2,USINGU2$; TT$(I) ,TW(I) „ABS(TW(I) %100/ (GN) ) 

NEXT I 
PRINT#-2 

: PRINT#-2, USING 
u GESAMTEINNAHMEN DM 4HHHHHHE. 34" ; GP 
PRINT#-2, USING 

" GESAMTAUSGABEN 
RETURN 


DM ##4#444.44#"; ABS(GN) 


TEILCALT Ei 


KRASSEMBERICHT 
KALKULATION 
STATISTIK 


aaa ng 225 

3ER, 

ueeS 2a 

En, 
BEI Ei 
BÜCHUNGEN DRUCKEN 
AUSWERTUNG BRÜCKEN 
DATUM 
BESTRAHE 
491 


3a €}; 





"a2x2%2 DATUM z414%4 
IF MA>O 
THEN GOTO 1090 
ELSE V2=1152:PRINTS429, "datum"; 
» DX=0: DC=1:POKEV2, PEEK (V2) +R 
I$=INKEY$ 
IF Is="" 
THEN GOTO 9020 
ELSE I=ASC(I$) 
:IF I=94 AND DC>1 
THEN DC=DC-1: POKEV2+DX „ PEEK (V2+DX) —R 
: DX=DX-52: POKEV2+DX „PEEK (V2+DX) +R 
IF I=10 AND DC<12 
THEN DC=DC+1 : POKEV2+DX „PEEK (V2+DX) —R 
»: DX=DX +52: POKEV2+DX „PEEK (V2+DX) +R 


9000-9070 Mit dieser Routine kommen 
Sie schon ganz zu Anfang des Pro- 
gramms in Berührung: die Eingabe des 
Buchungsmonats. 


9010 Wenn schon ein Buchungsmonat 
eingegeben wurde, Rücksprung ins 
Hauptmenue; sonst wird der Variablen V2 
die Bildschirm-Adresse des J von JAN zu- 
gewiesen. 


9020-9070 Durch das Drücken der Pfeil- 
tasten wird der erste Buchstabe des Mo- 
nats schwarz auf grün geschrieben. Das 
erreicht das Programm, indem zu dem je- 


weiligen Wert der Bildschirmadressen 
64({R) addiert wird. Durch das grüne Feld 
wird ein Monat markiert. Dieser Monat 
wird als erster Teil des Buchungsmonats 
angenommen, sobald der Benutzer die 
ENTER-Taste drückt. Danach wird die Va- 
riable V2 mit der Bildschirmadresse der 
obersten Jahreszahl gefüllt, und die glei- 
che Routine beginnt von vorn. 


9080-9140 Prüfroutine auf Richtigkeit 
einer Datumseingabe. Wenn der Schalter 
KS auf 1 steht, ist das Datum falsch. Ab- 
hängig vom Monat E und dem Jahr G wird 
auf Schaltjahr geprüft, das höchste zuläs- 
sige Tagesdatum errechnet und mit dem 
eingegebenen Datum F verglichen. 


10000-10040 Eingabe des Kassenan- 
fangsbestandes von Hand. Dies Eingabe 
wird überschrieben, wenn an einem alten 
Buchungsmonat weitergearbeitet wird, 
weil von dort die Variable Bl gefüllt wird. 


11000-11020 Programmende und Wie- 
derherstellung der BREAK-Tastenfunk- 
tion. Um versehentliche Abbrüche des 
Programms rückgängig machen zu kön- 
nen, wird die Zeilennummer des Haupt- 
menues angegeben. 


97040 


7050 


97050 
9070 


7080 
970970 
97100 


9110 


9120 


9130 


10000 
10010 
10020 


10050 
10040 
11000 
11010 


11020 





IF V2=1156& AND 1=13 
THEN JA=DC 
:MJ$=STR$ (MA) +CHR$ (46) +CHR$ (49) +CHRS$ (57) +5STRS$ (80+]2) 
»MJ=VAL (MJ$) :GOTO 9070 
IF I=13 
THEN MA=DC: V2=1155: POKE (V2) „PEEK (V2) +R: DC=1 
:DX=0:60T0 9020 
GOTO 9020 
GOTO 1020 


E=INT (MJ) =6=INT ( (MJ-INT {MJ) ) 810000) :F=DA (N) 
IF F<1THEN KS=1:RETURN 
IF E=2 
THEN IF 6=1984 OR 6=1988 OR 6=1992 
THEN IF F>29 
THEN KS=1:RETURN 
ELSE 
sELSE IF F>28 
THEN KS=1:RETURN 
IF (E=1 OR E=3 OR E=5 OR E=7 OR E=8 OR E=10 OR E=12) AND F>31 
THEN KS=1:RETURN 
IF(E=4 DR E=5 OR E=9 OR E=11)AND F>30 
THEN KS=1:RETURN 
RETURN 


Fr Ge TER E 1333 TEIL 
ERSSENEBERICHT 
KALKULATION 
BOSSE“ 


5 2 5575 5 


EaAASE 0 
25502. 3, 


AUSHMERTEN 

et 

BRTEI SFEICHEEN 
BUCHUNGEN DRUCKEN 
AUSHERTUNG TEUCKEN 
TS Er, 

EESTANI 

Er 


"Ex2%8%8 BESTAND EINGEBEN ##%#% 

IF SD=1 THEN GOTD 1090 

PRINTS472," ":PRINTS472,;:D=7:T1=47 
» T2=58: G0OSUB 12000: BT=VAL (D$) :»BI=BT 
SD=1:60T0 1080 

RETURN 

"x22ı& ENDE ##%%% 

ELSO: PRINTS205, "vril";z 


:PRINTSSS2," FALLS SIE SICH VERTAN HABEN, 
GEBEN SIE BITTE EIN: 
G0TO 1000 <ENTER>" 
POKE&H19YA,&HS9F: END 
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12000 
12010 
12020 
12050 
12040 
12050 


12055 
12080 


12070 
12080 


12090 


12100 


12110 


12120 


121350 


12140 


12180 


12170 


12180 


12190 
12195 


12200 


12210 
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"223% EINGABEROUTINE ###%% 

IF LO=1 THEN LO=0:PRINTSX+5,;5:G60T0 12040 

X1=X:XZ=N 

D$="":C$="":PRINTD2$; 

C$=INKEY$: IF C$=""THEN GOTO 12040 

C=ASC (C$) :V=LEN (D$) 

:IF PODS(0)>X5 OR V>O THEN GOTO 12130 

IF{C>T1 AND C<T2 OR C=4&5) THEN GOTO 12190 

IF CC=1 AND C=8 AND Yı<12 AND (Xi<>X OR XZ<>N) 
THEN G60T0 12040 


IF C=8 AND D$="" THEN G60T0 12320 
IF C=9 AND D$="" THEN GOTO 12330 


IF C=10 AND Yi=12 AND X>32 AND X1<X 
THEN XV=X1:G60SUB 13030: X1=-X1+32: X2=X2+1 
=XZ=XZ+1:XV=X1:G60OSUB 13040: PRINTSX+X5,35 
:G0TO 12040 
IF C=10 AND Yi=12 AND X1=448 AND XZ<N 
THEN XV=448:G0OSUB 13030: EXECKHTFFSE: XD=448 
»XI=X7+1:60SUB 2360: X7=XZ7+1:X2=X2+1 
»PRINTSX+X5,;:60T0 12040 
IF C=94 AND Yıi=12 AND X>32 AND X1>32 
THEN XV=X1:60SUB 13030: X1=X1-32: X2=X?-1 
»XZ=XZ7-1:XV=X1:G60SUB 13040: PRINTSX+X5,; 
:G60TO 12040 
IF C=94 AND Yi=12 AND X1=32 AND XZ>1 
THEN XV=32:G60SUB 13030: EXECKH7FFAF : XD=32 
»XI=X2-1:G60SUB 23850: XZ=XZ-1:X2=X2-1 
:PRINTSX+6,;3:1IF X<448 THEN X=X+32 
:G60T0 12040 
ELSE GOTO 12040 
IF Y1=0 AND CC=1 AND C=94 AND SE=1 
THEN GOSUB 3180:60T0 12040 
IF Yi=B ANDC<>9 AND C<>8 AND C< >13 
THEN GOTO 12040 
IF Yi=4 
THEN IF C=13 
THEN Yi=0:POKEV1+4,13:POKEV1,198 
: ZM=1:RETURN 
IF Yi=12 AND V>O AND Xı1<>X 
THEN XV=X1:60SUB 130530: XV=X:G0OSUB 13040 
: POKEX+V4+4 , PEEK (X+V4+4) -654: X1=X: Y1=0 
:POKEV1 ,PEEK (V1) +54: POKEV1+12,PEEK (V1+12) -54 
:PRINTSX+6,; 
IF Yi=8AND X1<>X 
THEN IF C=13 
THEN IF X>32 
THEN LO=1:Y1=12 
: POKEV1+12,PEEK (V1+12) +64 
:POKEV1+8,PEEK (V1+8) -64 
:Z5=1:RETURN 
ELSEY1=0: POKEV1,PEEK(V1) +64 
: POKEV1+8,PEEK (V1+8) -64 
:G60T0O 12040 
IF V=0 AND C=135 THEN GOTO 12040 
IF Y1>0 AND {(C<>13 AND C<>8 AND C<>9 
AND C<>10 AND C<>94) 
THEN GOTO 12040 
IF C=13 
THEN IF V<D 
THEN PRINTD3S$;D7%; »RETURN 
ELSE RETURN 
IF V>0 AND C=12 THEN GOTO 12290 


12000-12330 Eingaberoutine 


12055 T1 und T2 begrenzen den ASCIl- 
Code der Eingaben. 


12070-12080 Im Zusammenhang mit 
den Zeilen 12320 und 12330 wird der 
Cursor in der Menuezeile bewegt. Y1 gibt 
die Position des Cursors in der Menuezeile 
an. Der Wert O ist die Grundposition, der 
Wert 4 zeigt auf den Sprung ins Hauptme- 
nue, der Wert 8 zeigt auf den Punkt Lös- 
chen, und der Wert 12 gibt die Pfeiltasten 
nach oben und unten frei (Cursorzeile). 


12090-12120 Abfrage auf »Pfeil nach 
oben« und »Pfeil nach unten« 


12200 Bestätigung der Eingabe durch 
ENTER 


13000-13100 Einige kleine Unterpro- 
gramme 


13010 Menuezeile für Programmpunkt 
Auswerten 


13020-13030 Übergabe der Anfangs- 
adresse einer Bildschirmzeile an die Ma- 
schinenprogramme zur Umfärbung einer 
Zeile (Programmpunkt Buchen). 


13050-13060 Umfärben einer Zeile im 
Programmpunkt Auswerten, diesmal in 
BASIC 


13070-13080 Sprung in die oberste Zei- 
\e der rechten Bildschirmhälfte bzw. die 
unterste Zeile der linken 


12220 
122350 
12240 
12250 
12280 
12270 
12280 
12290 
12300 


125310 
12520 


125350 


15000 


15010 


13020 
150530 


15040 


15050 


150680 


153070 
15080 
15090 


15100 





IF V=0 AND C=12 AND CC=2 
THEN PRINTSX+4,D7$; :52=1:RETURN 
IF V=D THEN G0TO 12040 
IF C>T1 AND C<T2 OR C=46 THEN G0TO 12260 
GOTO 12040 
PRINTD3$; C$; : D$=D$+C$: C$="":C=0 
IF V<D-i THEN PRINTD2$; 
G0TO 12040 
D$=LEFT$(D$,V-1) :PRINTD3$D7$D3$D2$; 
IF V<D THEN PRINTD3$D3$D7$D7$D3$D3$D2$; 
:G0OTO 12040 
PRINTD3$D7$D3$D2$;:60T0 12040 
IF Yi1=0 
THEN GOTD 12040 
ELSE POKEVi1+Y1-4, PEEK (V1+Y1-4) +64 
: POKEV1+Y1,PEEK (V1+Y1) -64: Y1=Y1-4 
:G0TO 12040 
IF Yi=X4 
THEN GOTO 12040 
ELSE POKEV1+Y1+4,PEEK (V1+Y1+4) +64 
: POKEV1+Y1,PEEK(V1+Y1)-64: Yi=Yi1+4 


:GOTO 12040 
"22328 UNTERPROGRAMME ##4%% 


PRINTS480,STRING$ (31,128); 
:PRINTS5480,CHR$ (198) ;:PRINTS484, "men"; 
:POKE1535,128 


RETURN 
XVS=HEX$ (XV+1024) 
» POKEXHFFCA, VAL ("&H"+LEFTS(XVS,1)) 
s POKELHFFCS, VAL ("&H"+RIGHT$ (XV$,2)) 
s EXECLHFFCE: RETURN 
XV$=HEX$ (XV+1024) 
= POKE&HT7FDC, VAL ("&H"+LEFTS(XV$,1)) 
»: POKEXHFFDD, VAL ("&H"+RIGHTS$ (XV$,2)) 
»s EXEC&HFFDE : RETURN 
XV=XV+v4 
:FOR IV=0 TO & 
:POKEXV+IV+4,PEEK(XV+IV+4)—R 
=NEXT IV=PRINTSXV-V4+11,D5$; 
:FOR IV=8 TO 10 
:POKEXV+IV+4,PEEK (XV+4+1V) —R 
:NEXT IV:RETURN 
XV=XV+ıVv4 
:FOR I=0 TO & 
: POKEXV+I+4,PEEK(XV+I+4)+R 
:NEXT I=:PRINTSXV-V4+11,CHR$ (138); 
:FOR I=8 TO 10 
»POKE (XV+I+4) „PEEK(XV+I+4) +R 
:NEXT I:RETURN 
IF X=480 THEN X=80:RETURN ELSE RETURN 
IF X=48 THEN X=448:RETURN ELSE RETURN 
CLSO 
»PRINTS195, "keine"D4%"datei "D4$"im"D4$"speicher"; 
FOR I=1 TO 1000:NEXT:RETURN 
RETURN 
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Ein Lehr-und Lernbuch der 
He sane hun ige rm ask hs hrs RE ges: 
für alle Computer 

von Apple bis Commodore 
und Dragon bis IEM 


DuMont’s Basic Kochbuch 


Ein Lehr- und Lernbuch der Computerprogrammierung für alle Computer von Apple bis Commodore, von 
Dragon bis IBM 
Von Andreas Werminghoff. 160 Seiten mit zahlreichen einfarbigen Abbildungen, Listings, Lehr- und Fehler- 
programmen, kartoniert 


Programmieren an Computern macht vor allen Dingen Spaß. Der Leser lernt von dem Augenblick, an dem er 
seinen Computer auspackt, bis zu dem Moment, wenn er das erste Spielprogramm geschrieben hat, die 
grundlegenden Techniken des Programmierens in Basic. Aus den Erfahrungen, die der Autor als Lehrer in der 
Basic-Schule VRiL gesammelt hat, ist ein Buch geworden, das sich von anderen Basic-Lehrbüchern dadurch 
unterscheidet, daß es dem Leser auch zeigt, wie man Programmierfehler entdeckt und vermeidet. Fehlerhafte 
Listings erleichtern neben Programmieraufgaben das Einarbeiten in die Praxis des Programmierens. 








Herbert W. Franke 
 Computer-Grafik 
er. 11-1015 


Bilder nach Programm — 
Kunst im elektronischen Zeitalter 





Computer-Grafik Galerie 


Bilder nach Programm — Kunst im elektronischen Zeitalter 
Von Herbert W. Franke. 157 Seiten mit 72 farbigen und 237 einfarbigen Abbildungen, einem historischen 
Überblick und einer aktuellen Standbeschreibung zur internationalen Computer-Grafik Produktion, Porträts der 
Computer-Grafik Künstler, kartoniert (DuMont Dokumente) 


Die bekanntesten Künstler aus dem Bereich der Computer-Grafik werden in alphabetischer Ordnung mit 

beispielhaften Arbeiten vorgestellt. Daraus ergibt sich ein repräsentativer Überblick über den aktuellen 

entwicklungsstand dieser gestalterischen Methode. Zugleich erklärt das Buch in einer Sprache, die nicht nur für 

Computerfachleute, sondern auch für den Laien verständlich ist, die verschiedenen Arbeitsweisen und 

Stlrichtungen, ergänzt durch Aussagen der Künstler selbst — ein aufschlußreicher Einblick in ein neues 

Arbeitsfeld zwischen Kunst und Technik, das noch in der Entwicklung steht, gerade deshalb aber auch noch alle 
Möglichkeiten offen hält. 








Bettina Gruber- Maria Vedder 


dl KUNST 
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Internationale Entwicklung 
und Künstler 


Kunst und Video 


Internationale Entwicklung und Künstler 
Von Bettina Gruber und Maria Vedder. 264 Seiten mit 45 farbigen und 181 einfarbigen Abbildungen, Biographien 
und Bibliographien der über 70 abgebildeten Künstler, einem Verzeichnis der internationalen Videosammlungen, 
Register, kartoniert (DuMont Dokumente) 


»Wie die großen Ausstellungen der letzten Jahre zeigen, hat sich Video — wie die Photographie — mittlerweile zu 
einer eigenständigen und anerkannten Kunstform entwickelt. Der Band gibt als erster in Deutschland dem Leser 
einen Überblick über die internationale Geschichte und Entwicklung dieses künstlerischen Mediums. Anhand 
von über 70 der weltweit wichtigsten Künstler wird mit vielen Abbildungen die Vielfalt der Inhalte und 
Ausdrucksformen vor Augen geführt. Dieser Einblick in die Mannigfaltigkeit künstlerischen Ausdrucks wird 
abgerundet durch Beiträge und Essays von Fachleuten aus aller Welt. Der Band ist ein umfassendes Handbuch 
und nützliches Nachschlagewerk für alle Freunde der modernen Kunst.« Grafik Press 





1 Bettina rn ce er 


DuMont's 
Handbuch der 


VIDEO 


PRAXIS 


Technik,Theorie und Tips 





dumsont ERS 


DuMont’s Handbuch der Video-Praxis 


Technik, Theorie und Tips 
Von Bettina Gruber und Maria Vedder. 270 Seiten mit 82 einfarbigen Abbildungen, kartoniert 
(DuMont Taschenbücher, Band 130) 


»Wer bei einem Video-Recorder nicht nur einfach aufs Knöpfchen drücken will, sondern sich für das Wie und 
Warum, für Theorie, Technik und wertvolle Tips interessiert, der greift am besten zu diesem Taschenbuch. Die 
Autorinnen haben alles Wissenswerte über Video zusammengetragen und versuchen, ein »spannendes 
Spielzeug: der Moderne für jedermann verständlich und anwendbar zu machen. Ein wertvolles Buch für alle 
Videofans und für all jene, diees noch werden wollen.« Klagenfurter Nachrichten 


»Dieses Taschenbuch entschlüsselt scheinbar Geheimnisvolles, Öffnet Türen für brauchbare Anregungen und 
gibt wichtige Hinweise darauf, wie man sich eine neue, faszinierende Technik dienstbar machen kann.« 
Elmshorner Nachrichten 








Lrich Vielmuth 









rachwort-Lexikon 


FILM 
FERNSEHEN 
VIDED 


Herausgegeben von 
Pierre Kandorfer 












dumont 
taschenbücher 


Fachwort-Lexikon Film - Fernsehen - Video 


Von Ulrich Vielmuth. Herausgegeben von Pierre Kandorfer. 157 Seiten mit etwa 1700 Stichworten, Literatur- 
hinweisen, kartoniert (DuMont Taschenbücher, Band 125) 


»Herausgeber und Autor haben 1755 Begriffe aus den Bereichen Video, Fernsehen und Film zusammengetra- 
gen, die sie leicht verständlich erklären. Das Fachwort-Lexikon gilt als das umfangreichste Nachschlagewerk 
dieser Art in deutscher Sprache. Alle Begriffsbestimmungen befinden sich auf dem neuesten Stand und reichen 
von Bezeichnungen über die moderne Film-, TV- und Videotechnik über Ausdrücke der Umgangssprache bis 
hin zu Fachbegriffen aus dem Bereich neuer Medien wie Bildschirmtext und Bildplatte.« Video-Magazin 


»Für alle, die sich mit neuen technischen Verfahren der Film-, Video- und Fernsehtechnik vertraut machen 
müssen, ist das Fachwort-Lexikon von Ulrich Vielmuth eine geradezu unentbehrliche Hilfe.« Fotomagazin 
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